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PREFACE 


This  report  describes  the  combination  of  the  Articulated  Total  Body 
(ATB)  model  and  the  Calspan  3-D  Crash  Victim  Simulation  (CVS)  program  and 
modifications  made  to  the  program  to  form  the  new  ATB-II  model. 

The  principal  modifications  described  herein  fall  into  four 
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•  New  harness-belt  algorithm 

•  Rate  dependent  functions 

•  Arbitrary  specification  of  the  motion  of  multiple  segments 

•  Projection  of  segment  axes  to  specify  initial  angular  orientation 
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Technologies  Inc.,  a  consultant  to  Calspan,  developed  the  mathematical 
algorithms. 
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INTRODUCTION 


HISTORY  OF  THE  ATB  MODEL  AND  ITS  RELATIONSHIP  TO  THE  CVS  PROGRAM 

The  original  Articulated  Total  .Body  (ATB)  model  was  an  AMRL  modifi¬ 
cation  of  version  12  of  the  Calspan  Three-Dimensional  Crash  Victim  Simulation 
(CVS)  Program.  Phases  I  (Bartz,  1971)  and  II  (Bartz  et  al.,  1972)  of 
the  CVS  program  were  developed  by  Calspan  under  the  joint  sponsorship  of  the 
National  Highway  Traffic  Safety  Administration  (Contract  No.  FH-11-7592)  and 
the  Motor  Vehicle  Manufacturers  Association  (Contract  No.  7001 -C7).  Phase  III 
of  the  program  (Fleck  et  al.,  1974)  was  sponsored  by  NHTSA  (Contract  No.  HS- 
053-2-495)  and  has  been  designated  as  CVS-III,  version  11.  (Note:  The 
various  versions  of  the  CVS  program,  although  numerous,  actually  represent 
logical  breakpoints  in  the  development  of  the  program  made  necessary  by  the 
NHTSA  requirement  for  frequent  distribution  of  current  versions  of  the  program.) 

Version  12  of  the  program  was  developed  (Fleck  et  al.,  1975)  under 
the  sponsorship  of  the  Aerospace  Medical  Research  Laboratory  (Contract  No. 
F33615-75-C-5002) .  This  version  became  the  basis  of  the  original  Articulated 
Total  Body  (ATB)  model  and  several  of  its  features  (harness-belt  systems, 
wind  forces  and  new  joint  formulations)  were  not  incorporated  into  the  suc¬ 
ceeding  versions  of  the  CVS  program. 

Version  13  of  the  CVS  program  incorporated  many  minor  revisions, 
modifications,  additions  and  corrections  (identified  at  Calspan  or  reported 
by  users  of  the  program)  that  did  not  affect  the  numerical  results  of  most 
applications  of  the  program. 

Version  14  represented  an  attempted  new  belt  algorithm  under  study 
at  Calspan.  Although  not  successful,  some  of  its  features  were  helpful  in 
the  development  of  the  new  harness-belt  algorithm  resulting  from  the  current 
research  effort. 
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Versions  15-18  of  the  CVS  program  were  developed  under  the  sponsor¬ 
ship  of  NHTSA  (Contract  No.  HS-6-01300).  Version  15  featured  the  new  variable 
step  Vector  Exponential  Integrator  that  greatly  improved  the  accuracy  while 
decreasing  the  required  computer  run  time  for  the  program.  This  new  inte¬ 
grator  was  supplied  to  AMRL  and  was  incorporated  into  the  ATB  Model. 

Version  16  incorporated  the  new  initial  positioning  equilibrium 
routine.  In  version  17,  integration  of  the  vehicle  and  air  bag  motions 
was  added  to  the  program  integrator,  more  efficient  matrix  multiplication 
was  developed,  improvements  were  made  to  the  initial  direction  cosine  matrix 
computation  and  to  the  contact  routines,  and  a  new  output  tape  for  post¬ 
processing  routines  was  developed. 

Version  18  eliminated  the  necessity  of  the  multiple  output  units 
for  the  printed  tabular  time  histories  that  taxed  the  capacity  of  many 
computer  systems.  The  tabular  time  histories  can  now  be  generated  (in  the 
same  or  subsequent  run)  from  the  new  output  unit  No.  8  that  can  also  be  used 
to  generate  user-specified  plots  of  data  contained  in  the  tabular  time  histories. 
Also,  an  improved  Euler  joint  algorithm  and  improved  methods  of  specifying 
the  initial  angular  orientation  of  the  body  segments  were  developed. 

One  of  the  underlying  objectives  of  the  present  research  effort  is  to 
combine  the  features  of  both  the  ATB  and  CVS  models  into  a  single  program  entity. 
This  involved  first  combining  those  routines  of  version  12,  the  original  ATB 
model,  into  the  current  CVS  program  and  then  incorporating  the  new  analytical 
algorithms  of  this  research  effort  into  a  new  version  19  of  the  CVS  program. 

This  program,  as  delivered  to  AMRL,  will  be  designated  as  the  ATB-II  model. 

It  should  be  emphasized  at  this  point  that  the  above  changes 
to  the  program,  which  included  many  new  input  options,  were  incorporated 
into  the  CVS  program  in  such  a  manner  that  all  previous  input  decks  are  still 
acceptable  as  proper  input  to  the  program.  In  most  cases,  the  original  input 
options  are  still  available  as  default  options  so  as  not  to  invalidate  former 


input  decks.  This  is  also  true  for  the  new  input  options  incorporated  into 
version  19  except  that  some  of  the  routines  of  version  12,  as  they  were 
re-incorporated  into  the  current  CVS  program,  have  resulted  in  some  input  format 
changes  for  the  ATB-II  model.  These  changes  are  well  documented  in  the  new 
input  description  for  the  program. 


ADVANCED  HARNESS- BELT  RESTRAINT  S  i  STEM 


The  concept  of  a  harness  was  introduced  in  an  earlier  version  of 
the  program  to  produce  the  first  ATB  model  (Fleck,  1975).  A  harness  consists 
of  from  one  to  several  belts  (Figure  1).  Each  belt  is  defined  as  a  set  of 
straight  line  segments  connecting  reference  points.  The  reference  points,  P^, 
are  selected  from  a  prescribed  set  of  points  by  an  algorithm  that  ensures 
that  the  net  force  of  the  belt  on  the  segment  is  directed  along  the  inward 
normal  to  the  surface. 


Figure  1  BELT  HARNESS  MODEL 


This  early  version  had  three  deficiencies.  First,  interactive  belts 
were  tied  to  a  common  segment;  this  segment  was  moved  dynamically  to  balance 
the  forces.  Tests  showed  that  the  integrator  required  small  step  sizes  to 
prevent  oscillation.  Second,  uniform  tension  in  each  belt  was  assumed.  No 
allowance  was  made  for  the  effects  of  friction.  Third,  reference  points  were 
fixed  with  respect  to  the  segment.  The  belt  could  neither  penetrate  (deform) 
nor  slide  along  the  surface. 

The  advanced  harness-belt  system  developed  for  the  ATB- I I  model  cor¬ 
rects  for  all  three  of  these  deficiencies.  Belts  are  coupled  by  the  use  of 
Lagrange  multipliers;  finite  friction  is  introduced;  and  deformation  of  the 
segment  is  allowed. 
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DESCRIPTION  OF  THE  MODEL 


A  belt  is  represented  as  a  series  of  straight  line  segments  con¬ 
necting  points  P^,  k  =  1,  N.  The  geometry  of  the  local  coordinate  reference 
system  for  each  point  is  depicted  in  Figure  2. 


Figure  2  GEOMETRY  OF  A  POINT  FOR  ADVANCED  HARNESS-BELT  SYSTEM 

The  location  of  each  point  is  given  by  the  vector  .  Each  point  is 
considered  to  be  attached  to  some  segment  and  is  located  in  the  segment 
reference  system  by  an  offset  vector  0^,  which  may  be  zero,  and  a  reference 
vector  r^  which  must  not  be  equal  to  zero.  The  offset  vector  is  defined  in 
the  local  reference  system  of  the  segment  and  is  held  constant.  The  reference 
vector  r^  is  also  defined  in  the  local  coordinate  system  of  the  segment  acid  i  , 
perturbed  (changed)  if  necessary  to  satisfy  the  constraint  relations. 


The  location  of  the  point  P^  in  inertial  reference  is  given  by: 


Xk  =  Zk  +  Dk1  (°k  +  rk^ 
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where  is  the  location  of  the  eg  of  the  segment  in  inertial  reference  and  Dj. 
is  the  direction  cosine  matrix  which  defines  the  orientation  of  the  segment. 
The  vectors  are  unit  vectors  defining  the  belt  line.  They  are  computed  as 


Uk  =  (Xk+1  -  Xk)/bk  for  k  =  1,  N-l 
where  bR  =  |  Xk+1  -  Xfc  |  . 

Each  point  may  have  an  associated  ellipsoid  defined  by  the  matrix 
Ek  and  may  have  a  preferred  plane  vector  tk>  If  Ek  and/or  tfc  are  given,  they 
are  defined  in  the  local  coordinate  system  of  the  segment  and  are  assumed 
constant . 


An  orthonormal  coordinate  system  defined  by  the  matrix  e, ,  with 

12  3  K 

component  vectors  (ek>  e^,  ek)  is  established  at  each  point  in  the  following 

manner.  The  outward  normal  to  the  surface,  ek>  is  computed  as 

ek  =  ^  Ek  rk’  an  elliPsoic^  is  given,  °r 
ek  =  rk  if  no  ellipsoid  is  given  . 


If  the  surface  is  deformable,  rk  may  be  perturbed  along  the  normal  e^.  The 
second  component  e*  is  computed  as 


ek  =  *-Uk  +  Uk-1^  ©ek  >  if  n0  preferred  plane  is  given, 
ek  =  (Dk 1  tk)  ©  ek  ,  if  a  preferred  plane  vector  tk  is  given. 

Note  that  e,  is  perpendicular  to  the  outward  normal  e,^  in  both  cases. 

K  k 
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In  the  fir^t  case,  ♦  uk  ^  is  the  average  belt  line,  hence  e *  is 
perpendicular  to  the  average  belt  line.  At  the  end  points  e*  =  U.  <*>  e^  and 

1  3  *  *  *  *■ 

eN"  Vl©'*  since  neither  UQ  or  is  defined.  There  is  a  possibility  that 
for  the  end  points  these  may  be  zero.  To  insure  against  this  possibility,  it 
is  recommended  that  a  preferred  plane  vector  t^  to  be  defined  for  the  end 
points  where  tk  is  not  parallel  to  r^. 

2 

In  cases  of  finite  friction  rk  may  be  perturbed  along  e^..  In  all 
cases  the  third  component  e^  is  defined  to  produce  a  right  handed  coordinate 
system  as: 


The  three  component  vectors  are  then  normalized  by  dividing  by  their 

magnitude  |e^|  =  (e^  •  e^) . When  the  belt  slips  in  the  direction  of  the 

vector  e^,  it  is  impossible  to  distinguish  between  a  redefinition  of  the  basic 

reference  length,  B^,  of  the  belt  between  points  (distance  between  material 

points  on  the  belt)  and  a  perturbation  of  the  reference  point  in  this  direction 

(the  reference  point  tracks  a  material  point  on  the  belt).  Hence  an  option  is 

given  (called  type  5).  If  a  point  is  type  5,  the  constraint  equations  are 

2 

solved  allowing  r^  to  be  perturbed  along  e^.  If  a  point  is  not  type  5,  the 

constraint  equations  are  solved  by  perturbing  the  basic  reference  length,  B,  , 

2  k 
of  the  belt  along  e^. 

Constraint  Equations 

The  belt  lies  along  the  vectors  Xk+1  -  X^. 

The  strain  in  the  belt  is  b, 

k 

Bk  is  the  current  reference  length  of  the  kth  section  of  the  belt.  The  Bk's 
are  initially  set  (at  time  =  0)  by  computing  the  bk  and  then  adjusting  for  a 
user  specified  initial  slack  or  strain  uniformly  along  the  belt. 


/Bk  -  1  where  bR  =  |Xk+1  -  XR|  and 
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The  stress  in  the  belt  is 


"  ^k  (bk/Bk  -  ” 

where  fb^  is  a  user  specified  stress-strain  function.  The  current  version  of 
the  program  uses  the  same  functions  for  all  the  sections  of  a  particular  belt. 
The  function  may  be  modified  for  strain  rate  effects  where  the  strain  rate  is 
defined  as  the  instantaneous  value  of  b^/B^  (see  the  section  on  rate  dependent 
functions) . 


The  belt  force  at  point  P^  is 


FBk  - 


^k  Uk 


fb 


k-1  k-1 


This  force  is  resolved  into  its  components  in  the  reference  system  e^  as 
FRj  =  el  ‘  pBk  for  j  *  1,  2,  3. 

(FRj  is  dependent  on  k  but  for  simplicity  of  notation  the  k  subscript  is 
not  used.) 

The  perturbation  <5p^  at  the  point  has  three  components: 

•  a  perturbation  of  r^  along  e*  of  e*  •  <Spk  (J_  belt  line,  ]_  normal) 

2  2 

•  a  perturbation  of  along  e^  of  e^  ‘  <5pk  (along  belt  line) 

3  3 

•  a  perturbation  of  rk  along  e^  of  ek  •  5pk  (normal  to  surface) 

The  total  perturbation  of  rk  is  then 

5rk  •  eiS  ek  •  5pk  *  *k  ek  •  Spk 
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The  perturbation  of  due  to  slippage  at  P^  is 

6Bk  s  ek  *  5pk  =  6*k 
The  total  change  in  is 


5Bk  =  6£k  '  6\+l 


If  a  point  is  defined  to  be  type  5  (no  belt  slippage),  then 

2 

=  0  and  r^  is  perturbed  along  e^  thus, 

Srk "  ek  ek  •  {fk  *  ek  ek  ■  sPk  *  ek  ek  •  5pk  ■  5pk 
The  three  constraint  equations  which  must  be  satisfied  are: 


IFV  <  “1  Ifr3i 

|FR2I  <  u2  |FRj| 

®k  (ck)  ■  Ifr3I 

where  u^,  M2  are  coefficients  of  friction  (constant)  and  fD^(p^)  is  the  force 
deflection  function  for  the  belt  segment  interaction  at  the  point  P^.  The 
deflection  parameter  p^  is  defined  later.  This  function  may  be  modified  by 
the  penetration  rate  (see  section  on  rate  dependent  functions) . 

The  following  special  cases  are  allowed. 


If  no  friction  function  is  defined,  the  friction  coefficients  are 

assumed  to  be  infinite  and  the  first  two  constraints  are  automatically  satisfied. 

1  2 

No  perturbation  will  occur  along  e^  or  e^. 
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If  no  force  deflection  function  is  specified,  the  segment  is  con¬ 
sidered  to  be  undeformable  and  the  third  constraint  is  automatical ly  satisfied. 
Mo  perturbation  will  occur  along  e^. 

The  penetration  parameter  p^  is  defined  as: 


If  the  point  r^  is  outside  of  the  ellipsoid,  p^  is  negative.  If  the  point 
is  on  the  ellipsoid  ,  p^  is  zero  and  if  the  point  is  inside  of  the  ellipsoid, 
p^  is  positive.  If  the  ellipsoid  is  a  sphere,  p^  is  a  direct  measure  of 
the  penetration. 


Mo  provision  has  been  made  in  the  program  for  the  case  of  r^  =  0  or 
the  case  where  the  penetration  exceeds  the  half  way  point.  It  is  assumed  that 
the  force  deflection  function  will  be  defined  to  prevent  the  occurrence  of 
these  cases. 


SOLUTION  OF  THE  CONSTRAINT  EQUATIONS 


Each  harness  (collection  of  one  or  more  belts)  is  treated  as  a  unit 
to  allow  interaction  of  the  belts.  The  points,  X^,  will  be  considered 
sequentially  to  generate  the  matrix.  A  Newton  Raphson  technique  will  be  used, 
where  the  equations  are  linearized  to  form  a  linear  set  of  simultaneous 
equations  in  the  perturbations  3p^.  Interaction  between  belts  is  achieved  by 
using  Lagrange  multipliers  to  constrain  common  points  (junction  points)  to  be 
identical.  The  typical  matrix  representing  the  simultaneous  equations  will 
be  of  the  form  shown  in  Figure  3. 
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Figure  3  MATRIX  FORM  OF  CONSTRAINT  EQUATIONS 


A  sample  belt  system,  illustrated  in  Figure  4,  has  points  2  and  5 
which  are  common.  Since  the  equations  produce  a  sparse  matrix,  the  technique 
used  to  solve  the  system  equations  in  the  CVS  program  will  be  used  where  the 
3x3  sub-matrices  are  generated  and  subroutine  FSMSOL  is  called  to  solve  the 

system. 
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PERTURBATION  EQUATIONS 


In  the  subsequent  development,  the  3x3  sub-matrices  are  denoted 
by  Cik  where  j  identifies  the  row  and  k  the  column. 


The  three  constraint  equations  for  the  kth  joint  may  be  written  as: 

|ek  '  FBk!  '  “j  |ek  '  FV  s  0  f°r  i  *  i.  2 

^k  <»k>  -  '  Fskl  '  0 


Each  of  these  is  a  scalar  equation.  If  the  constraints 
satisfied,  we  write  the  perturbation  equations  as  a  vector: 


ai v  uv w 


3  •  FBV|  -  |ej  •  FBk|](  .  .J  lie3  •  FBk|  -  u-  |e3  •  FBk 


•j  »<t«,  I'k  •  FV  •  K 


ek  '  FBkl  -  ^k  ■  ek  K  ‘pk>  -  I'k  '  F\U 


for  j  = 


It  will  be  shown  that  these  are  of  the  form 

ek  Vk  ‘  5pk  *  ek  rk  for  j  3  1»  2,  3 

where  is  a  vector,  r£  is  a  scalar  and  5p^  are  the  perturbations  (the 

perturbation  equations  are  linearized).  The  three  equations  are  summed  to 
form: 


2  2 
*  ekvk 


*'Jvk  -i  s». 


1  1  2  2 
ek  rk  *  ek  rk 


+ 


r 


3 

k 


This  procedure  thus  forms  a  matrix  equation.  In  general,  the  pertur 
bation  of  adjacent  points  affect  the  constraint  equations  at  the  kth  point 
because  of  the  linkage  from  the  belt.  Thus,  when  considering  the  kth  point, 
we  are  generating  entries  in  the  kth  row  of  the  set  of  simultaneous  equations. 


This  row  represents  the  equation: 


Ck,k-1  5pk-l  *  Ck,k  5°k  4  Ck.k+1  6pk+l  =  Ck 


11  2  ,,2  3  .,3 

where  Ck  =  ek  vt  '  *  %  Vl  ‘  +  ek  V«. 


for  l  =  k-1,  k,  k*l 


1  1  2  2  3  3 

ek  rk  +  ek  rk  *  ®k  rk 


where  is  a  3  x  3  matrix  and  is  a  3  vector  (for  interactive  belts 

this  row  may  be  displaced  by  the  number  of  Lagrange  multipliers  used).  This 
procedure  of  forming  a  matrix  equation  from  a  set  of  scalar  equations  is  valid 
since  the  e^  form  an  orthogonal  set. 

If  a  constraint  is  satisfied,  we  set 


VJ  =  ek* 
k  K 


r£  *  0,  and 


k-1 


=  V 


k+1 


=  0 


If  all  three  constraints  are  satisfied,  this  will  yield 


I  =  0 


since 


I  = 


ej  ej 
k  k 


2  2 
4  6k  ek 


3  3 

*  e.  ei 
k  k 


NOTE:  If  no  friction  function  is  specified,  infinite  friction  is  assumed 

and  constraints  one  and  two  are  assumed  to  be  satisfied.  If  no 
force  deflection  function  is  specified,  the  segment  is  assumed  to 
be  nondeformable  and  constraint  three  is  assumed  to  be  satisfied. 

DETAILS  OF  PERTURBATION  EQUATIONS 

Consider  the  perturbation  equation  at  point  k 

5  luj  |ek '  FBk'  ■  |ek  •  FBk|]  =  K  •  FV  •  uj  )ek  '  FBk'  for  j  *  l>2 
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we  have 


FBk! 

= 

(6ek  *  FBk  *  ek  ’  5FBk)  sign  fek  ' 

FB^)  for  i  *  1,2,3 

FBk 

M 

ftk  Uk  -ftk-l  Uk-1 

uk 

= 

«k*!  -  V/bk 

bk 

= 

lS.i  -  V 

^k 

= 

fbk  (bk/Bk  -  1)  (stress  -  strain) 

5uk 

= 

(I  -  »k  “k  •>  (5Xk.i  '  sV/bk 

6fb. 

k 

= 

f\  (obk/Bk  -  bk  ;b.k/b-i  ,  fbk  - 

t?  fbk(S1 

6Bk 

* 

«k  -  “k.l 

6bk 

x 

uk  •  's*k.l  -  jxk) 

5Xk 

X 

“k1  Srk 

6ek 

X 

(1  -  'kek  •>  Ek  SV|Ek  rk'  ' 

,  if  ellipsoid  given 

= 

(I  ■  ek  ek  0  Dk1  6Tk/lrk'  ’  if  no  ellipsoid 

(this  is  the  same  as  if  Ek  *  I.  a 

unit  sphere) 

X  1 

6ek 

x 

(i  -  e*  ek  0  t(5Uk  *  5UJ(_1)©ek 

*  <uk  +  Uk-15® 

Z 

Uuk  •  Vl)©<l 


or  if  a  preferred  direction  tk  is  specified 

■  ct  -  'i  ek->  tk)©5'k',i(Dk‘ 

in  all  cases 


5e‘  =  («ejj)®ej  ♦  ej  ®  5eJ 


r 


Collecting  the  terms  for  SFB^  we  have: 


5FBk  •  [I  fybk  .  Uk  Uk.  (fbk/Bk  -  fbk/bk)l  (O'ij  «Vl  -  D'1  «rk) 

-  uk  <fbk  VBk>  '“k  -  SW 

-  f*  *  Uk-1  “k-r  K-1/Bk-1  -  fbk-l/bk-l» 

.-1 


Defining  the  matrices  Ak’  \  i 
* 


<Dk  Srk  -  Dk-i  Srk-i) 

*  Vi  Cfbk-i  bk-i/Bk-i>  («k-i  -  «V 


■  (‘W  V  *  ek  •  Uk  Uk  ■  K/Bk  -  fbk/bk5 
Vl  ■  (fbk-l/bk-l>  V  *  ek  •  uk-l  Vl  •  K-1/Bk-1  -  fbk-l/bk-l> 


and  the  vectors  S,  S,  ,  as 
k,  k-1 


sk  ■  ek  •  uk  K  bk/Bk 

Sk-1  ’  *k  '  Uk-1  bkVBk-l 


we  may  write  the  e^  •  FB^  for  j  =  1,2,3  as  the  components  of  the  vector 


Sk  •  5FBk  =  Ak  D 


i  i  Cr.  i  +  S.  5  SI, 
k+1  k+1  k  k+1 

„-l 


-  (\  ‘  Vi>  V  V  -  (sk  *  sk-i>  5lk 
*  Vl  Vl  6rk-l  *  sk-l  tlk-l 

(e^  is  a  3  x  3  matrix  ,  e^‘  is  the  transpose  of  e^)  the  dot 
notation  is  used  for  transposes  of  vectors  and  matrices  to 
eliminate  confusion  with  superscripts. 


In  the  case  of  a  'type  S'  point  D"1  5rk  =  6ck 
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For  a  general  point 


Dk1  5rk 


,  1  1  3  3,, 

(ek  ek  •  *  ek  ek  6°k 


5ik  =  ek  ‘  5°k 

The  terms  for  the  jth  constraint  may  be  collected  as 

Uj  ejj  •  FBk  sign  (e3  •  FBk)  -  ej  •  FBk  sign  (ej  ■  FBk) 

'  VLl  '  SVl  *  Vk  ■  8“k  '  Vk-1  '  8»k-1 

In  this  version  we  collect  only  the  terms  due  to  the  <SFBk  and  ignore  the 
perturbations  of  the  coordinate  system  <$ek  which  we  believe  will  be  small 
compared  to  the  variation  of  the  belt  forces.  Since  the  e^  are  recomputed 
for  each  iteration,  this  is  a  valid  procedure  providing  it  does  not  cause 
problems  with  convergence  of  the  iterations.  It  is  somewhat  analogous  to  the 
solution  of  the  equation  x  =  f(x)  by  the  iterative  sequence  x_n+^  =  f(xn)> 
xn~*  x  if  convergence  is  obtained. 

The  third  constraint  is  handled  in  a  similar  fashion.  It  requires 
the  evaluation  of  6fDk  (p^)  .  Since  Pk  has  been  defined  as 


(1Vrk  •  Ek  rk  -  15  'V 


we  have 


6fDk  (Pk)  =  fDk  6pk 


where  ' 
k 


,  evaluated  at  p, 


8ok  .  (»k  rk  •  /(rk  ■  rk)  -  |rk|  (E](  rk)  •  /(rk  •  ^  rk)3/2)  «r, 
Thus,  for  the  third  constraint,  we  collect  the  terms  of 

«(|e3  .  FB  I  -  fDk  (»k))  .  fDk  (Pk)  -  |©k  •  FBk| 


19 


RATE  DEPENDENT  FUNCTIONS  AND  ENERGY  LOSS 


Forces  in  the  harness-belt  system  can  be  produced  by  the  stress- 
strain  in  the  belt  segments  and  by  penetration  of  the  body  segments  by  the 
belt.  Both  of  these  forces  are  computed  within  the  ATB-II  model  by  the  force 
deflection  functions  that  are  specified  as  input.  Previously,  these  functions 
were  basically  static  with  provisions  for  initial  loading,  unloading  and  re¬ 
loading  through  use  of  inertial  spike,  energy  absorption  and  permanent  deflec¬ 
tion  functions. 

In  order  to  include  dynamic  effects,  the  total  force  deflection 
function  may  be  computed  assuming  the  functional  form 

f(p,  p)  =  fj  (p)  +  f2  (p)  +  f,  (p)  x  f4  (p) 

where  p  is  the  penetration  or  strain,  p  is  the  time  derivative  of  o  and  f ^ 
for  j  =  1,  4  are  the  standard  type  functions  which  may  be  defined  as  poly¬ 
nomial,  tabular  or  constant  functions,  f^  and  f4>  if  used,  replace  the 

normal  use  of  the  initial  loading,  energy  absorption  and  permanent  deflection 
functions  to  compute  the  total  force  deflection  function  within  the  program. 
The  use  of  these  rate  dependent  functions  to  specify  a  decreased  unloading 
function  can  be  accomplished  by  taking  into  account  that  p  is  negative  during 
unloading. 


When  work  is  done  during  the  loading,  unloading  cycles  the  part  that 
is  attributed  to  fj  (p)  may  be  considered  recoverable  (potential)  energy. 

The  remainder  is  lost.  Thus,  the  rate  of  energy  loss  is  given  by 

-  (f2  ^  *  f3  (0)  f4  (C))  X  ’ 

(note  that  for  loss,  pf2  (p)  and  pf  (p)  x  f4  (p)  shoud  be  non  negative.) 
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The  energy  loss  is  thus 


t 

e  3  (  e.  dt 

loss  J  loss 

0 

The  current  version  of  the  program  has  made  no  provision  for  the  integration 
of  auxiliary  variables  hence  a  simple  integration  is  performed  by  storing 
eloss  *n  eac^  contact  routine  and  at  update  time  (completion  of  an  inte¬ 
gration  step)  computing  ^e^oss  =  ei0Ss  x  b  w^ere  h  is  the  steP  si-e  of  the  just 
completed  successful  integration  step.  The  Aeioss  are  accumulated  as  an 
approximation  for  eloss- 

RATE  CALCULATION  FOR  HARNESS  ROUTINES 

Strain  Rate 


The  strain  in  the  kth  belt  section  is  given  by 


S 

■  VBk  -  1 

where  b. 

k 

lXk+l 

-  XjJ  and  is  the  unstrained  length  of 

the  belt  in  this 

section. 

Taking 

the  time  derivatives,  we  have 

S 

*  VBk  -  (VBk>  N 

Now 

bk 

•  lxk.i  -  xkl 

bk 

■  <xk.i  -  V  '  <xk.i  -  V/bk  ■  uk  ■ 

(xk+i  -  V 

X. 

J 

■  Z.  ♦  dT1  (r.  +  0.) 

J  J  J  J 

X. 

J 

=  2.  +  D.1  co.  ©  (r.  +  0.)  +  D'1  r.  ,  i 

J  J  J  J  V  J  J 

=  k,  k+1 
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where  Z ^  is  the  linear  velocity  at  the  eg  and  uk  is  the  angular  velocity  of 
the  segments  associated  with  point  k  (Dj  is  the  direction  cosine  matrix) . 
During  the  integration  step  r^  and  are  held  fixed.  The  values  of  and 
are  estimated  at  the  end  of  the  perturbation  routine  by 

6r^  new  r^  -  previous  r^ 

=  - 

g  _  6B^  _  new  B^  -  previous  B^ 

where  h  is  the  integration  step  size  used  in  the  last  successful  integration 
step. 

Penetration  Rate 


Penetration  Oj.  is  defined  as 

PR  =  (!/>/rk  •  Er  rk  -  l)|rRl 


where  rk  is  the  reference  vector  and  Ek  is  the  ellipsoid  matrix  associated 
with  point  k.  Taking  the  time  derivative  we  have 


P 


k 


lrk[  CEk  V  •  rk 


(rk  '  Ek  rk} 


3/2 


where 


The  value  of  rk  is  estimated  at  the  end  of  the  perturbation  routine  as 
rk  :  and  is  held  fixed  during  the  next  integration  step.  Thus, 

will  not  change  during  the  course  of  an  integration  step  (unless  the  program 
logic  is  changed  to  call  the  perturbation  routine  during  the  course  of  an 
integration  step.) 
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OMNI-DIRECTIONAL  SPECIFIED  MOTION 


The  program  had  been  modified  to  allow  the  specification  of  the 
motion  of  up  to  six  segments.  In  previous  versions  of  the  program  only  the 
motion  of  the  vehicle  could  be  specified.  The  segments  are  arbitrary.  If 
the  motion  of  two  or  more  segments,  which  are  in  the  same  tree  structure,  are 
specified  the  user  must  be  sure  that  these  motions  are  compatible  with  the 
structure. 


Since  the  belt  tiedown  points  may  be  attached  to  any  segment,  this 
satisfies  the  requirement  that  the  motion  of  the  tiedown  points  may  be 
specified . 


The  previous  options  of  a  one-half  sine  wave  unidirectional  decel¬ 
eration  pulse,  a  unidirectional  tabular  deceleration  table  or  the  omni¬ 
directional  (6  degree  of  freedom)  are  available. 

SPLINE  FIT  METHOD 

The  omni-directional  input  has  been  modified  to  provide  fas  an 
option)  the  capability  of  inputting  position,  velocity  or  acceleration  data 
at  specified  time  points*  The  time  points  need  not  be  equally  spaced.  The 
program  will  produce  an  equally  spaced  acceleration  table.  The  following 
procedure  is  used. 

From  the  given  data  for  each  of  the  six  components  (three  linear, 
three  angular)  a  polynomial  (0  to  3rd  degree)  fit  is  computed.  The  polynomial 
is  then  used  to  fill  out  an  equally  spaced  acceleration  table  for  that 
component . 
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The  degree  of  the  polynomial  is  optional  with  the  user;  however,  if 
position  data  is  supplied,  only  a  quadratic  ot  cubic  fit  should  be  used  since 
the  second  derivative  must  be  defined.  If  velocity  data  is  specified  a 
linear,  quadratic,  or  cubic  fit  may  be  used  and  if  acceleration  data  is 
specified,  the  constant,  linear,  quadratic  or  cubic  may  be  used. 

The  constant  fit  is  continuous  on  the  right,  i.e.,  if  three  points 
are  specified  (t^,  X^),  (t7,  X^),  (t^,  'X^)  the  functional  fit  is: 

fl  («)  *  V  t  <  t2 

“  ^2*  ^2  —  ^  <  ^3 

f3  (t)  =  V  C3  -  1 

If  a  linear  fit  is  specified,  the  fit  is: 

(t-tj),  t  <  t2 

(t*t2)’  h  -  r  <  r3 
f3(t)  =  x3  ,  t5  1  t 

Note  the  function  is  continuous  at  the  interior  time  joints 
(in  this  case  there  is  only  one  interior  time  point  at  t^) . 

If  a  quadratic  is  specified  the  fit  is: 

fl(t)  =  +  b1  (t-tj)  +  cl  (t-t^2,  t  <  t2 

f2(t)  =  X2  ♦  b2  (t-t2)  +  c  2  Ct-t2) 2 ,  t2  <  t  <  t3 
f3(t)  =  X3  »  t3  i  1 


f  (t)  =  X  ♦  X2~X1 

Vh 

f2(t)  =  X,  +  VX2 

‘  t,-t. 
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The  b's  and  c's  are  chosen  so  that  the  function  and  its  first 

derivative  are  continuous  at  the  interior  time  points  (only 

one  in  the  above  example)  and  the  sums  of  the  squares  of  the 

changes  in  the  2nd  derivative  is  minimized  (in  this  case 
2 

(c^-c^)  ).  This  minimization  has  the  feature  that  if  the  points 
lie  on  a  quadratic,  the  quadratic  will  be  reproduced. 

If  a  cubic  fit  is  specified,  the  fit  is: 


fj(t) 

-  Xl  ♦  bL 

(t-tj) 

+  ci  (t-V2  + d 

f2(t) 

-  x2  +  bl 

(t-t2) 

+  c 2  (t-t2)2  +  d 

f3(t) 

II 

X 

C/4 

(t-t^3,  t  <  t2 
(t-t2)3,  t2  <  t  <  t. 


The  b's,  c's  and  d's  are  chosen  so  that  the  function  is  first  and 
2nd  derivatives  are  continuous  at  the  interior  joints  and  the  sums 
of  the  square  of  the  changes  in  the  3rd  derivatives  are  minimized. 

This  minimization  will  reproduce  a  cubic.  Note  for  the  quadratic 
and  cubic,  at  least  three  points  must  be  given.  For  values  of  t 
greater  than  the  last  time  point,  the  function  is  treated  as  a  constant 
equal  to  the  last  value  (i.e.,  X.  in  the  example).  For  values  of  t 
less  than  the  first  time  point  the  first  function  is  extrapolated. 

It  is  assumed  the  user  will  specify  enough  values  to  span  the  range 
of  interest  so  that  extrapolation  is  not  a  problem.  The  first  time  point  must 
be  at  time  equal  to  zero. 
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MODEL  INPUT  OPTIONS 


If  position  data  is  given,  a  quadratic  or  cubic  fit  must  be 
specified.  The  initial  position  of  the  eg  of  the  segment  is  set  to  the 
linear  data.  The  angular  position  is  set  to  the  angular  data,  integrating 
the  data  as  the  yaw,  pitch  and  roll  angles. 

The  initial  velocities  are  set  to  the  values  determined  from 
derivative  of  the  spline  fit  evaluated  at  t  =  0.  For  the  angular  data  roll 
rate  is  interpreted  as  the  angular  velocity  on  the  segment  local  X  axis, 
pitch  rate  as  local  Y  axis  and  yaw  rate  as  local  Z  axis. 

The  acceleration  table  is  computed  from  the  2nd  derivatives  of  the 
spline  fit  at  equally  spaced  time  points. 

If  velocity  data  is  given,  the  user  also  specifies  the  initial 
position  and  orientation.  The  initial  velocities  as  set  to  the  first  point 
in  the  velocity  table  and  the  acceleration  table  computer  from  the  polynomial 
fit  (at  least  linear). 

If  acceleration  data  is  given,  the  user  also  specifies  the  initial 
positions  and  velocities  and  the  acceleration  table  is  computed  from  the 
polynomial  fit. 

A  word  of  caution.  The  angular  information  is  assumed  to  be  in  the 
segment  reference  system,  except  for  the  yaw,  pitch,  and  roll  at  time  equal 
to  zero  which  is  interpreted  as  measured  in  the  inertial  reference.  This 
should  cause  no  problems  except  in  the  case  where  the  tables  are  generated 
from  positional  data  and  more  than  one  set  of  non-zero  angular  information  is 
given.  In  this  case,  extreme  care  must  be  taken  so  that  the  proper  inter¬ 
pretation  is  made. 


26 


o 


AT  ION  OF  INITIAL  ANGULAR  ORIENTATION  FROM  PROJECTIONS 


Figure  5  PROJECTION  ANGLES  OF  A  SEGMENT  AXIS 

Consider  a  vector  r  and  its  projections  Pj ,  p.,  and  p.  on  the 
coordinate  frame  ZX,  XY  and  YZ,  respectively.  Let  be  the  angles  the 
projections  make  with  the  axis  as  defined  in  Figure  5.  (This  is  done  in 
accordance  with  the  right  hand  rule.) 

The  direction  of  the  vector  r  may  be  determined  from  any  two  of 
the  three  angles.  The  following  table  illustrates  the  proportionality  of 
the  components  r^,  ry  and  r2  of  the  vector  r  and  the  pairs  of  angles. 
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Table  1 


Projections/ 

2X-XY 

XY-YZ 

YZ-ZX 


I  sin  4^1  cos  <t>2 
cos  <p2  I  cos  4>j| 

I  sin  <J>3|  sin  4>  j 


|  sin  $  |  sin  <t>2 
|  sin  4> 2 1  cos  ^3 
cos  43  j  cos  (fijl 


r 

•? 

cos  <fr  | cos  4»,| 

|  sin  1  sin  ♦j 
|sin  4>,|  cos  ({ij 


A  unit  vector  in  the  direction  of  r  may  be  established  by  computing 
the  components  as  given  in  the  table  and  then  normalizing  the  vector. 

Determination  of  Direction  Cosine  Matrix 


The  orientation  of  a  rigid  body  is  specified  by  its  direction  cosine 
matrix.  This  matrix  can  be  computed  from  the  orientations  of  two  of  the  three 
principle  axes  of  the  body  because  the  principle  axes  are  orthogonal  and  given 
two,  the  third  is  prescribed  to  form  a  right-handed  coordinate  system. 

The  program  has  been  modified  to  allow  the  user  to  specify  the 
orientation  of  any  segment  by  the  following  procedure. 

1.  Define  the  orientation  of  a  primary  principle  axes  (X,  Y  or  Z  of 

the  rigid  body)  by  the  projection  method  or  by  the  component  method. 

In  the  projection  method  the  user  inputs  two  angles  and  identifies 
the  projection  pair  that  these  angles  refer  to  (i.e.,  common  X; 

ZX-XY  projections,  common  Y  or  common  Z) . 

In  the  component  method  the  user  inputs  the  three  components  (rx> 

r  ,  r  )  which  specify  the  orientation.  These  need  not  form  a  unit 

y 

vector. 
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The  principle  axis  which  this  primary  vector  is  describing  is 
identified. 

2.  In  the  same  fashion  a  secondary  principle  axis  is  defined.  The 

program  will  then  compute  the  direction  cosine  matrix. 

The  reason  for  defining  a  primary  and  a  secondary  axis  is  the 
inability  to  input  precise  data.  To  overcome  this  the  program  assumes  the 
primary  axis  is  precise.  That  is,  it  normalizes  the  vector  without  other 
modification.  It  then  modifies  the  secondary  axis  to  make  it  perpendicular 
to  the  primary  and  a  unit  vector.  The  remaining  principle  axis  is  computed 
to  form  a  right-handed  system. 
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APPENDIX  A 


THE  INPUT  DESCRIPTION  FOR 
THE  AMRL  ARTICULATED  TOTAL  BODY  (ATB-II)  MODEL 

The  input  description  describes  those  features  that  are  operational 
through  version  19  of  the  CVS  program.  The  ATB-II  model  was  developed  for 
the  Air  Force  Aerospace  Medical  Research  Laboratory,  Wright-Patterson  Air 
Force  Base,  Ohio  45433  under  Contract  No.  F33615-78-C-0516.  It  contains 
what  Calspan  considers  to  be  the  best  description  of  the  program  capabilities 
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INPUT  DESCRIPTION  FOR  THE  AMRL  ARTICULATED  TOTAL  BODY  <  ATS- 1 1  I  MODEL 

30  OCTOBER  1979 

NOTE:  THIS  REPORT  IS  SUPPLIED  WITH  1‘  IN  COLUMN  1  FOR  PAGE  SKIP 
CONTROL  TO  ALLC  i  FOR  PRINTING  ON  VARIOUS  COMPUTER  SYSTEMS. 

THE  FOLLOWING  SPECIAL  SYMBOLS  MAY  DIFFER  ON  OTHER  SYSTEMS: 

IS  USED  TO  INDICATE  NOT  EQUAL". 

"<"  IS  USED  TO  INDICATE  “LESS  THAN". 

*>•  IS  USED  TO  INDICATE  “GREATER  THAN*. 

“I"  IS  USED  TO  INDICATE  "ABSOLUTE  VALUE'. 

ANY  LINE  WITH  EITHER  OF  THE  SYMBOLS  “1"."*“  OR  *$*  AT  THE  RIGHT 
INDICATES  THAT  A  CHANGE  HAS  BEEN  MADE  TO  THIS  INPUT  DESCRIPTION 
SINCE  THAT  INCLUDED  IN  NHTSA  REPORT  NOS.  DOT-HS-801  507  THROUGH  510. 
“AN  IMPROVED  THREE  DIMENSIONAL  COMPUTER  SIMULATION  OF  MOTOR  VEHICLE 
CRASH  VICTIMS” ,  APRIL  1975  (FORMERLV  CALSPAN  REPORT  NO.  ZO-51BO-L-11 
> 

THE  SYMBOL  INDICATES  THAT  AN  ITEM  OR  CARD  HAS  BEEN  ADDED  TO  THE 

CVS  MODEL  INPUT  IN  SUCH  A  MANNER  THAT  PREVIOUS  INPUT  DECKS  ARE  STILL 
ACCEPTABLE  AS  PROPER  INPUT  FOR  THE  CURRENT  VERSION  OF  THE  PROGRAM. 

THE  SYMBOL  “S“  INDICATES  THAT  CHANGES  IN  FORMAT  OR  CONTENT  ARE 
REQUIRED  TO  PREVIOUS  INPUT  DECKS  TO  BE  ACCEPTABLE  AS  PROPER  INPUT 
FOR  THE  CURRENT  VERSION  OF  THE  PROGRAM. 


OUTLINE  OF  INPUT  TO  THE  PROGRAM  : 


CARDS  A  -  DATE  AND  RUN  DESCRIPTION.  UNITS  OF  INPUT  AND  OUTPUT, 
CONTROL  OF  RESTART.  INTEGRATOR  AND  OPTIONAL  OUTPUT. 

CARDS  B  -  PHYSICAL  CHARACTERISTICS  OF  THE  SEGMENTS  AND  JOINTS . 

CARDS  C  -  DESCRIPTION  OF  THE  VEHICLE  MOTION. 

CARDS  D  -  CONTACT  PLANES.  BELTS,  AIR  BAGS.  CONTACT  ELLIPSOIDS, 
CONSTRAINTS,  AND  SYMMETRY  OPTIONS. 

CARDS  E  -  FUNCTIONS  DEFINING  FORCE -DE F L ECTIONS ,  INERITIAL  SPIKE, 
ENERGY  ABSORPTION  FACTOR,  AND  FRICTION  COEFFICIENTS. 

CARDS  F  -  ALLOWED  CONTACTS  AMONG  SEGMENTS.  PLANES,  BELTS.  AIR  BAGS 
AND  CONTACT  ELLIPSOIDS. 

CARDS  G  -  INITIAL  ORIENTATIONS  AND  VELOCITIES  OF  THE  SEGMENTS. 

CARDS  H  -  CONTROL  OF  OUTPUT  OF  TIM'  HISTORY  OF  SELECTED  SEGMENT 
MOTIONS  ANO  JOINT  PARAMETERS. 

CARDS  I  -  CONTROL  INFORMATION  FOR  PLOTTER  OUTPUT 


DESCRIPTION  OF  FORTRAN  FORMAT  STATEMENTS  USED 


AT  THE  BEGINNING  OF  THE  DESCRIPTION  OF  EACH  CARD  APPEARS  THE  FORTRAN 

FORMAT  STATEMENT  THAT  SPECIFIES  THE  STRUCTURE  OF  THE  INPUT  IMAGE  FOR 

THAT  CARD.  THE  ONLY  FORMAT  CODES  USED  BY  THE  CVS  PROGRAM  ARE 

NFW.D  (F  TO  DESCRIBE  REAL  OATA  FIELDS) 

NIW  (I  TO  DESCRIBE  INTEGER  DATA  FIELDS) 

NAW  (A  TO  DESCRIBE  ALPHANUMERIC  DATA  FIELDS) 

WX  (X  TO  INDICATE  A  FIELD  TO  BE  SKIPPED) 

WHERE:  N,  W  AND  D  ARE  UNSIGNED  INTEGER  CONSTANTS 

N  IS  OPTIONAL  ANO  IS  A  REPEAT  COUNT  USED  TO  DENCTE  THE  NUMBER  OF 
TIMES  THE  FORMAT  CODE  IS  TO  BE  USED.  IF  N  IS  OMITTED,  A  VALUE 
OF  ONE  IS  ASSUMED  AND  THE  CODE  IS  USED  ONLY  ONCE. 

W  SPECIFIES  THE  FIELD  WIDTH  (NUMBER  OF  COLUMNS  ON  THE  CARD). 

0  NORMALLY  SPECIFIES  THE  NUMBER  OF  DECIMAL  PLACES  TO  THE  RIGHT 
OF  THE  DECIMAL  POINT.  I.E..  THE  FRACTIONAL  PART  OF  THE  NUMBER. 
HOWEVER,  A  DECIMAL  POINT  SUPPLIED  WITHIN  THE  FIELD  WILL  OVER¬ 
RIDE  THE  0  SPECIFICATION. 

/  IS  USED  TO  INDICATE  THE  END  OF  A  CARD  IMAGE  AND  THAT  THE 
REMAINING  FIELDS  ARE  TO  BE  SUPPLIED  ON  A  SUCCEEDING  CARD. 

ALL  VARIABLE  NAMES  USED  FOLLOW  THE  STANDARD  FORTRAN  NAMING  CONVEN¬ 
TION,  I.E.,  THOSE  VARIABLES  WHERE  THE  FIRST  LETTER  OF  THEIR  NAME  IS 
A-H  OR  0-2  ARE  REAL  (ACTUALLY  DOUBLE  PRECISION  ON  IBM  AND  UNIVAC 
COMPUTERS  AND  SINGLE  PRECISION  ON  CDC  COMPUTERS)  AND  THOSE  WITH  I-N 
AS  THEIR  FIRST  LETTER  ARE  INTEGER. 

ALL  REAL  DATA  HAVE  A  FW.O  FORMAT  CODE  WHICH  REQUIRES  THE  USE  OF  A 
DECIMAL  POINT  WITHIN  THE  SPECIFIED  FIELD  TO  OVERRIDE  THE  D«0  SPEC¬ 
IFICATION.  ON  MOST  COMPUTERS  F,  D  ANO  E  FORMAT  CODES  ARE  COMPLETELY 
INTERCHANGEABLE  FOR  INPUT  WHICH  PERMITS  ONE  TO  SUPPLY  AN  EXPONENTIAL 
(POWER  OF  TEN)  MULTIPLIER)  E.G..  0.000001  MAY  BE  SUPPLIES  AS  1.0D-6, 
PROVIDED  THAT  THE  EXPONENTIAL  TERM  IS  RIGHT  ADJUSTED  WITHIN  THE 
FIELD  WIDTH.  IN  ALL  OTHER  CASES,  REAL  DATA  USING  THE  FW.O  FORMAT  CODE 
MAY  APPEAR  ANYWHERE  WITHIN  THE  FIELD  WIDTH.  ALL  BLANKS  ARE  ASSUMED 
TO  BE  A  ZERO  AND  THEREFORE  IGNORED.  A  BLANK  FIELD  WILL  THEREFORE 
INPUT  A  VALUE  OF  ZERO. 

ALL  INTEGER  OATA  USE  A  IW  FORMAT  CODE  AND  MUST  BE  RIGHT  ADJUSTED. 

I.E..  MUST  APPEAR  IN  THE  RIGHTMOST  COLUMNS  OF  THE  FIELD. 

SEVERAL  NAMES.  TITLES  AND  OTHER  DESCRIPTIVE  ITEMS  ARE  ALPHANUMERIC 
DATA  ANO  USE  THE  AW  FORMAT  CODE.  HERE  BLANKS  ARE  SPACES  AND  THE  ACTUAL 
CHARACTERS  DESIRED  MAY  APPEAR  ANYWHERE  WITHIN  THE  FIELD. 
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MAIN  PROGRAM  INPUT 


CARD  A.l.A  FORMAT  < 3A4 .  214,  F8.0) 

DATE! I  ), 1-1 .3  DATE  OF  THE  RUN  (12  CHARACTERS). 


IRSIN  RESTART  INPUT  UNIT  NO.  IF  BLANK  OR  ZERO, 

ALL  INPUT  TO  BE  SUPPLIED  ON  CARDS  A. 3  TO 
CARDS  H.7.  IF  NONZERO  (SUGGESTED  VALUE  *4) 
INPUT  WILL  BE  SUPPLIED  FROi-l  A  PREVIOUS 
RESTART  TAPE  AND  CARDS  A.l.B.C  AND  A. 2. 

IRSOUT  RESTART  OUTPUT  UNIT  NO.  IF  NONZERO  (SUGGESTED 

VALUE  -3)  RECORDS  WILL  BE  WRITTEN  ON  THIS 
OUTPUT  UNIT  FOR  FUTURE  RESTART  RUNS.  AN 
INITIAL  RECORD  CONTAINING  ALL  INPUT  AND 
INITIALIZATION  DATA  WILL  BE  WRITTEN  PLUS  A 
TIME  POINT  RECORD  AT  EVERY  TIME  INTERVAL  AS 
SPECIFIED  BY  DT  ON  CARD  A. 4. 

RSTIME  RESTART  TIME  (SEC.)  REQUIRED  IF  IRSIN  ♦  0. 

SHOULD  BE  NONZERO  AND  AN  INTEGER  MULTIPLE 
OF  DT  ON  CARD  A. 4.  PROGRAM  WILL  READ  RECORDS 
FROM  THE  PREVIOUS  RESTART  TAPE  UP  TO  AND 
INCLUDING  THIS  TIME.  MAKE  CHANGES  PER  CARD 
A. 2  AND  CONTINUE  OPERATION  FROM  THERE. 


CARDS  A.l.B  -  A.l.C  FORMAT  ( 20A4  /  20A4  )  «* 

COME  NT (  I  )  ,  I  > 1  ,  40  DESCRIPTION  OF  THE  RUN  (16D  CHARACTERS  ON 

TWO  CARDS  > . 

ANY  FORMAT  MARKED  IN  THIS  MANNER  INDICATES  THAT  COLUMNS  73-80  OF  THAT 
CARD  ARE  USED  FOR  INPUT  AND  SHOULD  NOT  BE  USED  FOR  I  PE  NT  I F I  CAT  I  ON . 


CAROS  A. 2  ARE  REQUIRED  ONLY  IF  IRSIN  >  0,  IN  WHICH  CASE  ALL 
OTHER  INPUT  AS  SPECIFIED  ON  CARDS  A. 3  TO  H.7  ARE  BYPASSED. 

TWO  SETS  OF  A. 2  (EACH  TERMINATED  WITH  A  BLANK  CARD)  ARE  REQUIRED. 
THE  FIRST  SET  IS  PROCESSED  AFTER  THE  INITIAL  INPUT  RECORD  IS  READ 
FROM  INPUT  UNIT  IRSIN  AND,  IF  IRSOUT  #  0,  BEFORE  THE  INPUT 
RECORD  IS  WRITTEN  ON  OUTPUT  UNIT  IRSOUT.  THE  SECOND  SET  IS 
PROCESSED  AFTER  THE  TIME  POINT  RECORD  FOR  TIME  *  RSTIME  HAS  BEEN 
READ  AND.  IF  IRSOUT  #  0.  AFTER  THE  SAME  RECORD  IS  WRITTEN  ON 
OUTPUT  UNIT  IRSOUT,  BUT  BEFORE  THE  PROGRAM  RESUMES  OPERATION. 

CARDS  A. 2. A  -  A.2.N  FORMAT ( A8 ,  414,  2(F8.0,  18,  A8  )  > 


AVAR  ALPHANUMERIC  NAME  (LEFT  ADJUSTED  IN  FIELD) 

OF  VARIABLE  TO  BE  REDEFINED  FOR  RESTART. 
PROGRAM  IS  CAPABLE  OF  CHANGING  ANY  VARIABLE 
IN  THE  LABELED  COMMON  BLOCKS  AS  USED  AFTER 
ALL  INITIALIZATION  HAS  BEEN  PERFORMED.  THE 
USER  SHOULD  ASCERTAIN  THAT  CHANGING  THIS 
VARIABLE  IS  VALID  FOR  THE  PROGRAM. 


INDEX!  I ) . I»1 ,3  THE  ARRAY  INDICES,  IF  ANY,  OF  THE  VARIABLE. 

MUST  AGREE  IN  NUMBER  AND  THE  VALUES  MUST  BE 
LESS  THAN  OR  EQUAL  TO  THE  DIMENSIONS  OF  THE 
VARIABLE.  BLANK  OR  ZERO  FOR  NO  DIMENSION. 


I  TYPE  SUPPLY  1.2  OR  3  TO  INDICATE  THAT  THE  NEW 

VALUE  IS  TO  BE  REAL ( RR  > ,  INTEGER! II)  OR 
ALPHANUMERIC(AA).  MUST  AGREE  WITH  THE  TYPE 
OF  THE  VARIABLE  WITHIN  THE  PROGRAM. 


RR.II  OR  AA  NEW  VALUE  OF  THE  VARIABLE  AVAR  TO  BE 

SUPPLIED  IN  THE  APPROPRIATE  FIELD  DETERMINED 
BY  THE  VALUE  OF  ITYPE . 


RROLD.IIOLD  THE  PREVIOUS  VALUE  OF  THE  VARIABLE  AVAR  IN 

OR  AAOLD  THE  APPROPRIATE  FIELD  ACCORDING  TO  THE  ITYPE 

VALUE.  INTEGER  OR  ALPHANUMERIC  DATA  WILL  BE 
TESTED  EXACTLY,  REAL  DATA  TO  5  SIGNIFICANT 
DIGITS.  IF  THE  CURRENT  VALUE  IS  DIFFERENT, 
THE  PROGRAM  WILL  TERMINATE  WITH  AN  ERROR 
MESSAGE.  IF  ZERO  OR  BLANK  IS  SUPPLIED, NO 
CHECK  IS  PERFORMED. 


THESE  A. 2  CARDS  WILL  BE  PROCESSED  UNTIL  A  BLANK  VALUE  FOR 
AVAR  IS  ENCOUNTERED.  NO  FURTHER  INPUT  IS  REQUIRED. 
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CARO  A. 3  FORMAT  (3A4,  4F12.0) 

UNITL  UNIT  OF  LENGTH  (4  CHARACTERS  ) 

UNITM  UNIT  OF  FORCE  (MASS)  (4  CHARACTERS  ! 

UNITT  UNIT  OF  TIME  (4  CHARACTERS). 

NOTE  :  UNITL.  UNITM  AND  UNITT  SHOULO  CORRESPOND  TO  THE  USER'S 
INPUTS.  THROUGHOUT  THIS  DESCRIPTION,  INCHES.  POUNDS  AND  SECONDS 
(IN. LBS, SEC)  ARE  USED  AS  SAMPLE  UNITS. 

GRAVTY  <  I  ) , I « 1 , 3  THE  X.  Y  AND  Z  COMPONENTS  (IN/SEC**2>  OF  THE 

GRAVITY  VECTOR.  NORMALLY  THIS  IS  USED  AS  THE 
GRAVITY  FORCE  VECTOR  ACTING  ON  THE  SEGMENTS. 
THIS  VECTOR  DEFINES  THE  INERTIAL  OR  GROUND 
REFERENCE  COORDINATE  SYSTEM  TO  BE  USED  BY 
THE  PROGRAM.  THE  ORIENTATION  OF  OTHER  COORD¬ 
INATE  REFERENCE  SYSTEMS  (E.G..  VEHICLE  AND 
LOCAL  SEGMENT)  ARE  DEFINED  LATER  WITH  RESPECT 
TO  THIS  INERTIAL  REFERENCE  COORDINATE  SYSTEM. 
ONE  CAN  THEREFORE  DEFINE  ANY  DESIRED  COORD¬ 
INATE  SYSTEMS  TO  MEET  INDIVIDUAL  REQUIREMENTS. 

G  THE  VALUE  OF  G  (  I N/SEC**2  )  .  IF  BLANK  OR  ZERO, 

THE  MAGNITUDE  OF  THE  GRAVITY  VECTOR  WILL  BE 
USED.  SUPPLYING  THE  VALUE  OF  C.  PERMITS  ONE 
TO  SPECIFY  A  DIFFERENT  GRAVITY  VECTOR  ABOVE 
(E.G.,  ZERO)  FOR  SPECIAL  APPLICATIONS. 


CARD  A. 4 


FORMAT  (214,  4F8.0) 


NDINT  NUMBER  OF  ITERATIONS  FOR  FINAL  CONVERGENCE 

TEST  OF  THE  INTEGRATOR  SUBROUTINE  DINT 
(MINIMUM  VALUE  »  2,  SUGGESTED  VALUE  -  4). 

NSTEPS  NUMBER  OF  INTEGRATION  STEPS  (OR  OUTPUT 

TIME  POINTS)  FOR  THE  INTEGRATOR  ROUTINE. 

MAY  8E  ZERO  TO  OBTAIN  INITIAL  CONDITIONS. 

DT  MAIN  PROGRAM  TIME  INTERVAL  FOR  INTEGRATOR 

ROUTINE  OUTPUT  (SEC).  TOTAL  TIME  OF  RUN 
WILL  BE  NSTEPS*DT  SECONDS  WITH  MAIN  PROGRAM 
TAPE  1,  PRINTER  PLOT  AND  OPTIONAL  OUTPUT 
PRODUCED  EVERY  DT  SECONDS. 


HO 


INITIAL  INTEGRATOR  STEP  SIZE  (SEC). 


HMAX  MAXIMUM  INTEGRATOR  STEP  SIZE  (SEC).  FOR  BEST 

EFFICIENCY  DT  SHOULD  BE  AN  INTEGRAL  MULTIPLE 
OF  HMAX  AND  HMAX  A  POWER  OF  TWO  MULTIPLE 
OF  HO.  (SUGGESTED  VALUE  »  0.001  SEC.) 

HMIN  MINIMUM  INTEGRATOR  STEP  SIZE  (SEC).  IF  A 

FIXED  STEP  SIZE  IS  DESIRED,  SET  HMIN  GREATER 
THAN  HMAX,  AND  STEP  SIZE  WILL  DOUBLE  FROM  HO 
UNTIL  HMAX  IS  ACHIEVED. 
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CARD 


A. 5  FORMAT  (3612) 


'RT< I ) , I»1 ,36 

AN  ARRAV  OF  INDICATORS  THAT  CONTROL  VARIOUS 
OPTIONAL  OUTPUT  FEATURES  OF  THE  PROGRAM. 
GENERALLY.  A  BLANK  OR  ZERO  VALUE  INDICATES 

NO  OUTPUT  FOR  THAT  ITEM  AND  A  VALUE  Or  ONE 
WILL  PRODUCE  OUTPUT  EACH  TIME  THE  ROUTINE  IS 
EXECUTED.  THE  PRINTED  OUTPUT  PRODUCED  BY 
ELEMENTS  7-27  IS  INTENDED  FOR  DIAGNOSTIC  OR 
"CHECK  OUT"  PURPOSES  ONLY.  CAN  PRODUCE  LARGE 
AMOUNTS  OF  OUTPUT  AND  SHOULD  NOT  BE  USED  FOR 
LONG  OR  PRODUCTION  RUNS.  IT  IS  NOT  COMP1.  ETELY 
LABELED  AND  ONE  SHOULD  CONSULT  THE  LISTING  OF 
THE  SUBROUTINE  FOR  A  DESCRIPTION  OF  THE  ITEMS 
THAT  ARE  PRINTED. 

THE 

NPRT  ARRAY  ( *  -  SEE 

NOTES  BELOW) 

.EMENT  NO. 

SUBROUTINE 

OUTPUT  PRODUCED 

1 

(  1*  ) 

MAIN 

OUTPUT  UNIT  NO.  1 

2 

(  1*  ) 

MAIN 

SUBROUTINE  ELTIME  TABLE 

3 

<  1  *  ) 

MAIN 

SUBROUTINE  PRINT  OUTPUT 

4 

<  3*  ) 

OUTPUT, POSTPR 

OUTPUT  UNIT  NO.  8,  PLOTS 

5 

(  1*  ) 

PRIPLT 

Y-Z  VIEW  PRINTER  PLOTS 

6 

(  1*  ) 

PRIPLT 

X-Z  VIEW  PRINTER  PLOTS 

7 

BINPUT 

HA  AND  HB  ARRAYS 

3 

(  2*  ) 

DAUX 

IJK,  RHS  AND  C  ARRAYS 

9 

DAUX 

SUBROUTINE  PRINT  OUTPUT 

10 

IMPULS 

DIAGNOSTIC  OUTPUT 

1  1 

SETUP  1 

U2.V1  ARRAYS 

12 

VISPR 

DIAGNOSTIC  OUTPUT 

13 

PRIPLT 

C JO  I  NT  ARRAY 

14 

WINDY 

WIND  FORCES 

15 

BELTG 

DIAGNOSTIC  OUTPUT 

16 

HBELT 

HARNESS-BELT  FORCES 

17 

18 
19 

EDEPTH 

NOT  USED 

NOT  USED 

DIAGNOSTIC  OUTPUT 

20 

CHAIN 

SEGLP , SEGLV 

21 

AIR8AG 

DIAGNOSTIC  OUTPUT 

22 

23 

AIRBG1 

NOT  USED 

DIAGNOSTIC  OUTPUT 

24 

UPDATE 

ROLL-SLIDE  TEST  OUTPUT 

25 

DINT 

CONVERGENCE  TEST  DATA 

26 

(  4*  ) 

DINT, POSTPR 

TABULAR  TIME  HISTORY  OUTPUT 

27 

EQUILB 

INTERMEDIATE  RESULTS 

28 

<  5*  ) 

HPTURB  . 

HARNESS  BELT  FORCES 
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NOTES  CONCERNING  ELEMENTS  OF  THE  NPRT  ARRAY 

l*  FOR  ELEMENTS  1,2, 3, 5  AND  6,  THE  VALUE  INDICATES  THE  FREQUENCY, 
ZERO  FOR  NO  OUTPUT  (FOR  ELEMENT  NO.  2,  THE  ELTIME  TABLE  WILL  BE 
PRINTED  ONCE  AT  THE  END  OF  THE  RUN),  AND  A  NON-ZERO  POSITIVE 
VALUE  <  N )  WILL  PRODUCE  OUTPUT  EVERY  N*0T  (FROM  CARO  A. 4)  SECONOS. 

2*  A  VALUE  OF  NPRT(8>  -  2  WILL  PRINT  THE  DESIGNATED  ARRAYS  BEFORE 
AND  AFTER  THE  FIRST  CALL  TO  SUBROUTINE  FSMSOL  ONLY. 

3*  THE  VALUE  OF  NPRT(4>  IS  USED  (AFTER  VERSION  13A)  TO  CONTROL 

(1)  WRITE  THE  TABULAR  TIME  HISTORIES  (SPECIFIED  BY  CARDS  H  AND  THE 
ALLOWED  CONTACTS  ON  CARDS  F)  ON  EITHER 

(A)  THE  MULTIPLE  OUTPUT  UNITS  (NO.  21  AND  UP)  BY  SUBROUTINE 
OUTPUT,  OR 

(B)  THE  PRIMARY  OUTPUT  UNIT  (NO.  6)  BY  SU3ROUTINE  HEDING. 

(2)  STORE  THE  TIME  HISTORY  OATA  ON  OUTPUT  UNIT  NO.  8  BY  SUBROUTINE 
OUTPUT  TO  BE  LATER  USED  BY  SUBROUTINE  POSTPR. 

(3)  GENERATE  PLOTS  OF  THE  TIME  HISTORY  DATA  (SPECIFIED  ON  CARDS  I) 
BY  SUBROUTINE  POSTPR. 

THE  PERMISSIBLE  VALUES  OF  NPRT(4>  RANGE  FROM  -3  TO  +4  AS  FOLLOWS: 


+  4 

1  CONTROL  CARDS 

MULTIPLE  OUTPUT  UNITS  YES 

OUTPUT  UNIT  NO.  3  YES 

2  CARD  INPUT 

CARDS  B.1-H.7  YES 

CARD  H . 8  NO 

CARDS  I  NO 

3  MAIN  PROGRAM  OPERATION 

INTEGRATE  AND/OR  RESTART  YES 

CALL  SUBROUTINE  POSTPR  NO 

4  PRINT  TIME  HISTORIES 

MULTIPLE  OUTPUT  UNITS  YES 

PRIMARY  OUTPUT  UNIT  NO 

5  OUTPUT  UNIT  NO.  B 

WRITE  (SUB  OUTPUT)  YES 

READ  (SUB  POSTPR)  NO 


6  GENERATE  PLOTS  (CARDS  I)  NO 


SUPPLIED 

VALUE 

:  FOR 

NPRT ( 4 ) 

♦3 

*2 

♦  I 

0 

-1 

-2 

-3 

NO 

NO 

YES 

YES 

NO 

NO 

NO 

YES 

YES 

YES 

NO 

YES 

YES 

YES 

YES 

YES 

YES 

YES 

NO 

NO 

NO 

YES 

YES 

YES 

NO 

YES 

YES 

YES 

YES 

NO 

YES 

NO 

YES 

NO 

YES 

YES 

YES 

YES 

YES 

NO 

NO 

NO 

YES 

YES 

YES 

NO 

YES 

YES 

YES 

NO 

NO 

YES 

YES 

NO 

NO 

NO 

YES 

YES 

NO 

NO 

NO 

YES 

YES 

YES 

YES 

YES 

NO 

NO 

NO 

NO 

YES 

YES 

YES 

NO 

YES 

YES 

YES 

YES 

NO 

YES 

NO 

YES 

NO 

YES 
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4*  NP RT<  26  )  CONTROLS  THE  FREQUENCY  OF  THE  TABULAR  TIME  HISTORY  OUTPUT. 
VALUES  OF  0,1  OR  2  ARE  PERMISSIBLE  TO  CONTROL 

( A )  IF  THE  TABULAR  TIME  HISTORIES  ARE  PRINTED  ON  THE  MULTIPLE 

OUTPUT  UNITS  21  AND  UP  <NPRT<4>  •=  0,1  OR  4),  A  VALUE  OF 

NPPTI26)  -  0  OR  1  WILL  PRINT  AT  THE  END  OF  EACH  SUCCESSFUL 
INTEGRATION  STEP.  A  VALUE  OF  NPRT(26>  ■  2  WILL  PRINT  AT  EACH 
INTERMEDIATE  TIME  POINT  OF  EACH  INTEGRATION  STEP. 

(B)  IF  OUTPUT  UNIT  NO.  8  IS  GENERATED  <  NP  RT ( 4 )  >  0>.  RECORDS  ARE 
WRITTEN  AT  THE  SAME  FREQUENCY  SPECIFIED  IN  (A)  ABOVE. 

(C)  IF  THE  TABULAR  TIME  HISTORIES  ARE  PRINTED  FROM  OUTPUT  UNIT 

NO.  8  <NPRT<4)  -  +2, +3, -2  OR  -3).  A  VALUE  OF  NPPT(?6>  EQUAL  TO 

0  WILL  PRINT  ONE  LINE  EVERY  DT  (FROM  CARD  A. 4)  SECONDS; 

1  WILL  PRINT  AT  THE  END  OF  EACH  SUCCESSFUL  INTEGRATION  STEP; 

2  WILL  PRINT  AT  EVERY  INTERMEDIATE  TIME  POINT  OF  EACH  STEP. 

5*  NP  RT ( 28  )  CONTROLS  THE  FREQUENCY  AND  LEVEL  OF  DIAGNOSTIC  HARNESS 
3ELT  FORCES  OUTPUT  PRODUCED.  VALUES  OF  0,1,2  AND  3  ARE  ALLOWED 
AS  FOLLOWS:  (EACH  VALUE  INCLUDES  OUTPUT  0p  ALL  LOWER  VALUES) 

(0)  -  PRODUCES  A  TA8LE  OF  THE  FINAL  HARNESS  BELT  FORCES  AT  EACH 

POINT  IN  PLAY  AT  THE  SAME  TIME  POINTS  AS  OUTPUT  IS  PRODUCED 

BY  SUBROUTINE  PRINT  AS  SPECIFIED  BY  NPRT( 3  )  . 

(1)  -  PRINTS  A  TABLE  OF  THE  FINAL  HARNESS  BELT  FORCES  AT  EACH 

POINT  IN  PLAY  AT  EACH  TIME  POINT  OF  SUBROUTINE  HPTURB . 

(2)  -  PRINTS  A  TABLE  OF  THE  HARNESS  BELT  FORCES  AT  EACH  POINT  IN 

PLAY  FOR  EVERY  ITERATION  STEP  OF  SUBROUTINE  HPTURB. 

( 3  >  -  PRINTS  THE  RHS.IJK  AND  C  ARRAYS  BEFORE  THE  CALL  TO  FSMSOL 
AT  EACH  ITERATION  STEP  AT  EACH  TIME  POINT  OF  HPTURB 


IF  N? RT( 4 )  IS  NEGATIVE,  INPUT  CARDS  B.I-H.7  SHOULD  NOT  BE  SUPPLIED. 
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B. 


SUBROUTINE  BINPUT 


CARD  B.l  FORMAT  (216,  8X.  5A4  ) 


NSEG  THE  NUMBER  OF  SEGMENTS  FOR  THE  CRASH  VICTIM.  I 

THE  MAXIMUM  VALUE  IS  30,  BUT  THIS  INCLUDES  ONE  I 
FOR  THE  GROUND.  NBAG  AIRBAGS,  AND  THE  NEW  I 

SEGMENTS  (INCLUDING  THE  PRIMARY  VEHICLE!  FOR  I 

WHICH  PRESCRIBED  MOTION  IS  DEFINED  ON  CARDS  C.  I 

N J NT  THE  NUMBER  OF  JOINTS  (MAXIMUM  =  29).  I 

NOTE:  NORMALLY  NONT  *  NSEG-1,  BUT  JOINT 
NUMBERS  NVEH-1  AND  NGRND-1  MAY  BE  USED  TO  I 

CONNECT  THE  VEHICLE  AND  THE  GROUND  TO  A  I 

LOWER  NUMBERED  SEGMENTS. 


BDYTTL< I ) , 1*1 ,5  DESCRIPTION  OF  THE  CRASH  VICTIM 

<20  CHARACTERS). 


CARDS  B.2.A  -  B.2.I  FORMAT  (A4,  IX,  A1 ,  10F6.0) 

<  NSEG  CARDS  ) 

EACH  CARD  (I)  FOR  1=1,  NSEG  WILL  CONTAIN  INPUT  DATA  FOR  THE  ITH 
SEGMENT.  THE  SEGMENT  IDENTIFYING  NUMBERS  <I>  WILL  BE  REFERRED  TO 
ON  LATER  INPUT  CARDS. 


SEG< I )  AN  ABBREVIATION  OF  THE  NOMENCLATURE 

OF  THE  ITH  SEGMENT  (4  CHARACTERS). 

CGS(I)  THE  PLOT  SYMBOL  OF  THE  SEGMENT  C.G. 

<1  CHARACTER). 

W( I )  THE  WEIGHT  OF  THE  SEGMENT  (LBS). 

PHI(0,I>,0=1,3  THE  PRINCIPAL  MOMENTS  OF  INERTIA  OF  THE 

SEGMENT  ABOUT  THE  X,  Y,  AND  2 
AXES  OF  THE  SEGMENT  ( L B S -SEC * *2 -  I N  )  . 

THERE  ARE  NO  RESTRICTIONS  ON  THE  VALUES  OF 
W<  I  >  OR  PHKJ.I),  THEY  MAY  BE  NEGATIVE  OR 
ZERO.  IF  ANY  COMPONENT  IS  ZERO,  IT  IS 
ASSUMED  THAT  THE  SYSTEM  IS  SUITABLY  CON¬ 
STRAINED  SO  THAT  THE  SYSTEM  MATRIX  IS  NON¬ 
SINGULAR. 

BD( J ,  1  ) ,  J*1 ,3  THE  X,  Y,  AND  Z  SEMIAXES  OF  THE 

SEGMENT  CONTACT  ELLIPSOID  (IN). 

B0(J,I >, 0=4,6  THE  LOCATION  OF  THE  CENTER  OF  THE  SEGMENT 

CONTACT  ELLIPSOID,  WITH  RESPECT  TO  THE 
CENTER  OF  GRAVITY  OF  THE  SEGMENT,  IN  THE 
LOCAL  BODY  SEGMENT  RE FE RE NCE <  I  N > .  THESE 
PRIMARY  CONTACT  ELLIPSOIDS  ARE  GIVEN  THE 
SAME  INDENTIFYING  NUMBER  AS  THE  SEGMENT. 
THEY  MAY  BE  REDEFINED  WITH  AN  ARBITRARY 
ORIENTATION  ON  CARDS  D.5. 
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IN  N  J  NT  IS  ZERO  ON  CARO  S.l,  CARDS  B.3  -  B.5  ARE  NOT  REQUIRED. 

CARDS  B.3. A!  -  B.3.J1  FORMAT  <A4,  IX.  A1 .  2!4,  KF6.0) 

(NONT  SETS  OF  CARDS.  2  CARDS  PER  SET.  THE  FIRST  CARD  OF  EACH  SET  IS 
DESCRIBED  ON  THIS  PAGE.  THE  SECOND  CARD  ON  THE  NEXT  PAGE.) 


EACH  CARD  <  0  >  FOR  J  =  1.  NJNT  WILL  CONTAIN  INPUT  DATA  FOR  THE  JTH 
JOINT.  THE  JOINT  IDENTIFYING  NUMBERS  (J)  WILL  BE  REFERRED  TO  ON 
LATER  INPUT  CARDS. 


JOINT! J>  AN  ABBREVIATION  OF  THE  NOMENCLATURE 

OF  THE  JTH  JOINT  (4  CHARACTERS). 


JS(  J  ) 


PLOT  SYMBOL  OF  THE  JOINT  LOCATION  (1  CHARACTER). 


JNT(J)  MAGNITUDE  INDICATES  THE  NUMBER  OF  THE  SEGMENT 

THAT  IS  CONNECTED  TO  SEGMENT  J+l  BY  JOINT  J. 
IF  NEGATIVE.  JOINT  J  IS  ASSOCIATED  WITH  A 
FLEXIBLE  ELEMENT.  IF  ZERO.  SEGMENT  J+l  IS 
THE  REFERENCE  SEGMENT  OF  ANOTHER  BODY. 

(  I J NT( J  )  I  <  J+I  >. 


I P I N<  J  >  0  -  THERE  ARE  TO  BE  NO  CONSTRAINTS  ON  JOINT  J. 

1  -  JOINT  J  IS  PINNED  (HINGE). 

2  -  JOINT  0  IS  NOT  PINNED  (BALL  AND  SOCKET). 

3  -  JOINT  J  IS  GLOBALGRAPHIC  (BALL  AND  SOCKET) 

4  -  JOINT  J  IS  AN  EULER  JOINT. 

NON-ZERO  VALUES  FOR  IPIN  MAY  BE  SUPPLIED 

AS  POSITIVE  OR  NEGATIVE  TO  INDICATE  THAT  THE 
INITIAL  CONDITION  OF  THE  JOINT  IS  UNLOCKED 
(POSITIVE)  OR  LOCKED  (NEGATIVE). 

AN  EULER  JOINT  MAY  USE  THE  GL08ALGRAPH I C  OPTION. 

SPECIFY  IGLOB  *  1  ON  CARD  F.4.A 
THE  INITIAL  STATE  OF  AN  EULER  JOINT  IS  SET  BY 
USE  OF  IPIN  AS  FOLLOWS 

IPIN  IEULER  STATE 

4  8  FREE 

-  4  7  ALL  AXES  LOCKED 

-  5  6  SPIN  FREE,  OTHERS  LOCKED 

-  6  5  NUTATION  FREE.  OTHERS  LOCKED 

-  7  4  PRECESSION  FREE.  OTHERS  LOCKED 

-  8  3  SPIN  LOCKED,  OTHERS  FREE 

-  9  2  NUTATION  LOCKED.  OTHERS  FREE 

-10  1  PRECESSION  LOCKED.  OTHERS  FREE 

WHERE  PRECESSION  IS  ABOUT  THE  Z  AXIS  OF  THE 
JOINT  REFERENCE  (YPR1)  IN  SEGMENT  NO.  JNT(J). 
NOTATION  ABOUT  THE  RESULTANT  X  AXIS.  AND  SPIN 
ABOUT  THE  RESULTANT  Z  AXIS  OF  THE  JOINT  REF¬ 
ERENCE  (YPR2)  IN  SEGMENT  NO.  J+l. 

IF  IPIN  IS  LESS  THAN  -3  PROGRAM  WILL  SET  IEULER 
AS  ABOVE  AND  THEN  SET  IPIN  =  -4. 

SR( I ,2*J-1 >. 1-1 ,3  COORDINATES  OF  LOCATION  OF  JOINT  J  (IN.)  IN 

THE  LOCAL  REFERENCE  SYSTEM  OF  SEGMENT  JNT(J). 

SR(I,2*J), 1-1,3  COORDINATES  OF  LOCATION  OF  JOINT  J  (IN.)  IN 
THE  LOCAL  REFERENCE  SYSTEM  OF  SEGMENT  J+l. 
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CARDS  8.3.A2  -  B.3.02  FORMAT  (14X,  9F6.0,  612)  «• 

(ONE  OF  THESE  CARDS  MUST  FOLLOW  EACH  CARD  FROM  PREVIOUS  PAGE.) 

YPR 1 < I , 0  ) , I « 1 , 3  THE  ROTATION  ANGLES  (DEGREES)  ABOUT  THE  Z.  Y 

AND  X  AXES.  RESPECTIVELY ,  Or  THE  LOCAL  REF¬ 
ERENCE  OF  SEGMENT  NO.  JNT(J)  TO  SPECIFY  THE 
PRINCIPAL  AXES  OF  JOINT  J.  THE  ORDER  OF  THESE 
ROTATIONS  IS  SPECIFIED  BY  ID1  BELOW. 

YPR2( I , J  > , I  *  I , 3  THE  ROTATION  ANGLES  (DEGREES)  ABOUT  THE  Z.  V 
AND  X  AXES,  RESPECTIVELY.  OF  THE  LOCAL  REF¬ 
ERENCE  OF  SEGMENT  NO.  0+1  TO  SPECIFY  THE 
PRINCIPAL  AXES  OF  JOINT  J.  THE  ORDER  OF  THESE 
ROTATIONS  IS  SPECIFIED  BY  ID2  BELOW. 

THE  Z  AXIS  IS  THE  REFERENCE  AXIS  TO  DEFINE 
FLEXURE.  THE  Y  AXIS  IS  USED  AS  THE  PIN  AXIS 
EXCEPT  FOR  THE  SPECIAL  EULER  JOINTS.  THE  XY 
PLANE  IS  USED  FOR  GL08ALGRAPHIC  JOINTS  WITH 
X  AS  THE  REFERENCE  AXIS. 

YPR3< I  ,0  >, 1*1 ,3  THE  CENTER  OF  SYMMETRY  (DEGREES)  FOR  EULER 

JOINTS  (USED  ONLY  IF  I  I P  I N  <  0  )  I  *  4)  SUPPLIED  IN 
THE  ORDER  PRECESSION,  NOTATION  AND  SPIN.  JOINT 
TORQUES  FOR  EULER  JOINTS  ARE  A  FUNCTION  OF 
THE  DEVIATION  OF  THE  EULER  ANGLES  FROM  THESE 
ANGLES.  PREVIOUS  VERSIONS  (BEFORE  19A)  OF 
PROGRAM  ASSUMED  VALUES  OF  ZERO. 

IDK I ,J  ), 1*1 ,3  VALUES  OF  1,2  AND  3.  CORRESPONDING  TO  THE  X, 

Y  AND  Z  AXES.  SPECIFYING  THE  ORDER  OF  THE  AXES 
ABOUT  WHICH  THE  ROTATIONS  GIVEN  IN  YPR1  ARE 
TO  BE  PERFORMED.  ZERO  OR  BLANK  VALUES  WILL 
DEFAULT  TO  THE  ORDER  3.2  AND  1  TO  SPECIFY  THE 
NORMAL  YAW,  PITCH  AND  ROLL  SEQUENCE.  I.E.. 

YAW  ABOUT  ORIGINAL  Z  AXIS  USING  YPRK’.J). 

PITCH  ABOUT  RESULTANT  Y  AXIS  USING  VPRK2.J), 

ROLL  ABOUT  RESULTANT  X  AXIS  USING  YPRK3.J). 

THE  SAME  AXIS  CANNOT  BE  SPECIFIED  FOR  TWO  OR 
MORE  CONSECUTIVE  ROTATIONS.  HOWEVER,  THE  THIRD 
AXIS  MAY  BE  THE  SAME  AS  THE  FIRST,  PROVIDED  IT 
IS  SUPPLIED  AS  A  NEGATIVE  NUMBER,  IN  WHICH  CASE 
THE  UNUSED  VALUE  OF  YPR1  WILL  BE  USED  ABOUT 
THE  INDICATED  AXIS.  E.G.,  VALUES  OF  3,1  AND  -3 
WILL  SPECIFY  THE  NORMAL  EULER  ROTATIONS  WHERE 
YPR1  IS  SUPPLIED  IN  THE  ORDER  PRECESSION. 

SPIN  AND  NOTATION  TO  COMPUTE 

PRECESSION  <  VPR  1  <  l , 0  )  )  ABOUT  ORIGINAL  Z  AXIS. 
NUTATION  <YPR1<3,J>>  ABOUT  RESULTANT  X  AXIS. 

AND  SPIN  ( YP  R 1 ( 2  ,  J  >  )  ABOUT  RESULTANT  Z  AXIS. 

ID2( 1,0), 1-1,3  SPECIFIES  THE  ORDER  OF  THE  ROTATIONS  GIVEN  BY 

YPR2  IDENTICAL  TO  THE  DESCRIPTION  OF  ID1. 


CARDS  B.4.A  -  B.4.0  FORMAT  <2  (4F6.0,  F12.0)) 

(NJNT  SETS  OF  CARDS,  ONE  FOR  EACH  JOINT  J.  IF  IIPINIJH  #  4, 
EACH  SET  READS  VALUES  FOR  3*J-2  AND  3*J-1  ON  ONE  CARD  ONLY. 

IF  I  I P I N( J  > I  ■  4  ,  JOINT  J  IS  AN  EULER  JOINT  AND  A  SECOND  CARD 
IS  NECESSARY  TO  READ  VALUES  FOR  3* J  > 


SPRING! I. 3*J-2>,  THE  FLEXURAL  SPRING  CHARACTERISTICS  FOR 

1-1,5  JOINT  J.  IF  J  IS  AN  EULER  JOINT,  THE  SPRING 

CHARACTERISTICS  ABOUT  THE  PRECESSION  AXIS. 

IF  JOINTF(J)  *  0  (ON  CARD  F.5.A),  THESE  I 

VALUES  ARE  NOT  USED  AND  SHOULD  BE  ZERO.  I 


SPRING! I , 3*J- 1 ), 
1-1,5 


THE  TORSIONAL  SPRING  CHARACTERISTICS  FOR 
JOINT  J.  IF  J  IS  AN  EULER  JOINT,  THE  SPRING 
CHARACTERISTICS  ABOUT  THE  NUTATION  AXIS. 


SPRING!  I  ,3*J  ). 
1-1,5 


SECOND  CARD  OF  EACH  SET  IS  REQUIRED 
ONLY  IF  J  IS  AN  EULER  JOINT,  THE  SPRING 
CHARACTERISTICS  ABOUT  THE  SPIN  AXIS. 


1*1  LINEAR  SPRING  COEFFICIENT 

( IN-LQS/DEG  > . 


1-2  QUADRATIC  SPRING  COEFFICIENT 

<  IN-LBS/DEG**2  ) . 

1-3  CUBIC  SPRING  COEFFICIENT 

< IN-LBS/DEG**3  ) . 

1-4  ENERGY  DISSIPATION  COEFFICIENT 

(DIMENSIONLESS). 

A  VALUE  OF  1.  SPECIFIES  NO  LOSS 
A  VALUE  OF  0.  SPECIFIES  MAXIMUM  LOSS 

1-5  JOINT  STOP  LOCATION  WITH  RESPECT  TO 

THE  CENTER  OF  SYMMETRY  (DEG). 

FOR  A  VALUE  OF  ZERO  THE  ROUTINE  WILL  USE  ONLY 
THE  LINEAR  SPRING  COEFFICIENT  AND  WILL  APPLY 
THE  ENERGY  DISSIPATION  FACTOR 


ANG!  I, J), 1-1,3  THE  APPROXIMATE  INITIAL  ROTATION  ANGLES, 

IN  THE  ORDER  PRECESSION,  NUTATION  AND  SPIN, 
(DEGREES)  FOR  JOINT  J  WHICH  IS  AN  EULER  JOINT. 
THESE  ARE  USED  AS  THE  INITIAL  ANGLES  FOR  THE 
MEMORY  MODE  USED  BY  SUBROUTINE  EULRAD  AND 
NEED  NOT  BE  EXACT.  THE  VALUES  ARE  ABSOLUTE 
ANO  NOT  RELATIVE  TO  THE  CENTER  OF  SYMMETRY. 
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CARDS  B.5.A  -  B.S.J  FORMAT  (5F6.0,  18X,  2F6.0) 

( NJNT  SETS  OF  CAROS.  ONE  FOR  EACH  JOINT  0.  IF  IIPIN(J)I  #  4, 

VALUES  FOR  3*J-2  ARE  ON  ONE  CARD  ONLY.  IF  IIPIN(J)I  -  4. 

J  IS  AN  EULER  JOINT  ANO  VALUES  FOR  3*J-1  AND  3*J  ARE  REQUIRED 

ON  A  SECONO  ANO  THIRD  CARO  OF  EACH  SET.) 

VISCt I  ,3*J-2  ) ,  THE  VISCOUS  CHARACTERISTICS  FOR  JOINT  J. 

1-1,7  IF  J  IS  AN  EULER  JOINT,  THE  VISCOUS  CHAR¬ 

ACTERISTICS  ABOUT  THE  PRECESSION  AXIS. 

VISC<  I  ,3*J-I > ,  THE  SECONO  CARD  OF  EACH  SET  IS  REQUIRED 

1-1,7  ONLY  IF  J  IS  AN  EULER  JOINT.  THE  VISCOUS 

CHARACTERISTICS  ABOUT  THE  NUTATION  AXIS. 

V 1  SC (  I  ,  3* J  )  THE  THIRO  CARD  OF  EACH  SET  IS  REQUIRED 

1-1,7  ONLY  IF  J  IS  AN  EULER  JOINT.  THE  VISCOUS 

CHARACTERISTICS  ABOUT  THE  SPIN  AXIS. 

1-1  VISCOUS  COEFFICIENT  (IN-LB-SEC/DEG). 

1-2  COULOMB  FRICTION  COEFFICIENT  (IN-LB). 

1-3  RELATIVE  ANGULAR  VELOCITY  OF  JOINT 

AT  WHICH  FULL  COULOMB  FRICTION  IS 
APPLIED  (DEG/SEC).  MUST  BE  GREATER  THAN  0. 

1-4  TIs  THE  MAXIMUM  TORQUE  (IN-LBS)  ALLOWED  FOR  A 

LOCKED  JOINT  (OR  EULER  AXIS).  IF  EXCEEDED. THE 
JOINT  WILL  UNLOCK.  IF  T1  -  0,  THE  TEST  WILL 
NOT  BE  PERFORMED.  NOTE:  IF  JOINT  J  IS  LOCKED, 
IF  Tl-0,  AND  IF  SUBROUTINE  EOUIL8  IS  CALLED. 
THEN  VI SC ( 4 , 3* J -2  )  WILL  BE  SET  BY  SUBROUTINE 
EQUILB.  (SEE  DESCRIPTION  UNDER  CARDS  G.6) 

1-5  T2:  THE  MINIMUM  TORQUE  (IN-LBS) 

ALLOWED  FOR  JOINT  J  TO  REMAIM  UNLOCKED. 

IF  T2  -  0,  THE  TEST  WILL  NOT  BE  PERFORMED. 

1-6  T3 :  THE  MINIMUM  ANGULAR  VELOCITY  (RAD/SEC) 

NECESSARY  FOR  JOINT  J  TO  REMAIN  UNLOCKED. 

IF  T3  ■  0.  THE  TEST  WILL  NOT  BE  PERFORMED. 

1-7  E  -  ( 1 +U  >/2  WHERE  U  IS  THE  CLASSICAL 

COEFFICIENT  OF  RESTITUTION  TO  BE  USED  FOR  THE 
IMPULSE  OPTION  IF  THE  JOINT  HITS  THE  JOINT 
STOP  <  0 < E < 1  OR  -1<U<*1>.  A  VALUE  OF  E  -  0 
MEANS  THAT  THE  IMPULSE  OPTION  WILL  NOT  BE 
EXERCISED  FOR  THIS  JOINT. 


CAROS  B.6.A  -  8.6. I  FORMAT  < 1 2F  6 . 0  > 

( NSEG  CAROS  ) 

SGTEST (1,1,1)  MAGNITUDE  TEST  FOR  THE  ANGULAR  VELOCITY 

OF  SEGMENT  NO.  I  (RAD/SEC). 

SGTEST {2,1,1)  ABSOLUTE  ERROR  TEST  FOR  THE  ANGULAR 

VELOCITY  OF  SEGMENT  NO.  I  (RAD/SEC). 

SGTEST (3,1,1)  RELATIVE  ERROR  TEST  FOR  THE  ANGULAR 

VELOCITY  OF  SEGMENT  NO.  I  (DIMENSIONLESS). 

SGTEST! 1,2,1)  SAME  AS  ABOVE.  BUT  FOR  THE  LINEAR 

(2.2.1)  VELOCITY  OF  SEGMENT  NO.  I  (IN/SEC). 

<3,2,1 > 

SGTESTf 1,3,1)  SAME  AS  ABOVE,  BUT  FOR  THE  ANGULAR 

(2.3.1)  ACCELERATION  OF  SEGMENT  NO.  I  ( RAD/SEC*«2  ) . 
(3,3,1  ) 

SGTESTf 1 ,4, I  )  SAME  AS  ABOVE  BUT  FOR  THE  LINEAR 

(2.4.1)  ACCELERATION  OF  SEGMENT  NO.  I  <IN/SEC**2). 

(3.4.1) 

THESE  CONVERGENCE  TESTS  ARE  PERFORMED  IN  SUBROUTINE  DINT  ON  THE 
RESULTANT  OF  THE  DERIVATIVE  VECTORS.  THE  LINEAR  VELOCITIES  AND 
ACCELERATIONS  ARE  COMPUTED  ONLY  FOR  REFERENCE  SEGMENTS  (I.E.  SEGMENT 
NO.  1  AND  THOSE  SEGMENTS  I  WHERE  JNT(I-l)  »  0).  THEREFORE  ANY  TEST 
NUMBERS  SUPPLIED  FOR  LINEAR  VELOCITIES  AND  ACCELERATIONS  OF  OTHER 
SEGMENTS  WILL  BE  IGNORED.  THE  TESTS  FOR  CONVERGENCE  ARE  PERFORMED 
IN  THE  FOLLOWING  ORDER  : 

1)  IF  THE  MAGNITUDE  TEST  IS  ZERO,  NO  TESTING  IS  DONE  FOR  THAT 
VARIABLE. 

2)  IF  THE  MAGNITUDE  OF  THE  RESULTANT  VECTOR  IS  LESS  THAN  THE 
MAGNITUDE  TEST, THE  ROUTINE  HAS  PASSED  THE  CONVERGENCE  TEST 
FOR  THAT  VARIABLE. 

3)  IF  THE  ABSOLUTE  ERROR  TEST  IS  GREATER  THAN  ZERO,  AND  THE 
MAGNITUDE  OF  THE  ABSOLUTE  ERROR  (DIFFERENCE  BETWEEN  THE  PREDICTED 
AND  COMPUTED  VECTOR)  IS  LESS  THAN  THE  ABSOLUTE  E RR°R  TEST,  THE 
ROUTINE  HAS  PASSED  THE  CONVERGENCE  TEST  FOR  THAT  VARIABLE. 

4)  IF  THE  RELATIVE  ERROR  OF  THE  MAGNITUDE  OF  THE  ABSOLUTE  ERROR 
COMPARED  TO  THE  MAGNITUDE  OF  THE  COMPUTED  VECTOR  IS  GREATER 
THAN  THE  RELATIVE  ERROR  TEST,  THE  CONVERGENCE  TEST  HAS  FAILED. 
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IF  NFLX  #  0,  CAROS  S.7  ARE  REQUIRED.  EACH  FLEXIBLE  ELEMENT  AS 
DEFINED  ON  CARDS  B.3  CONTAINS  AT  LEAST  THREE  CONNECTED  SEGMENTS 
CONSISTING  OF  A  REFERENCE  SEGMENT,  ONE  OR  MORE  INTERIOR  SEGMENTS 
AND  A  TERMINATING  SEGMENT.  EACH  JOINT  IN  THE  ELEMENT  SHOULD  HAVE 
A  NEGATIVE  VALUE  FOR  JNT ,  AND  THE  NUMBER  OF  INTERIOR  SEGMENTS 
WILL  BE  ONE  LESS  THAN  THE  NUMBER  OF  .NEGATIVE  VALUES  OF  JNT  FOR 
EACH  ELEMENT.  NFLX  IS  THE  TOTAL  NUMBER  OF  INTERIOR  SEGMENTS  OF 
ALL  FLEXIBLE  ELEMENTS. 

CARD  B.7.A 

NFX 


KNT ( K  > , K* 1  ,  NF  X 


CARDS  B.7.B  -  B.7.N 

( 4 *NF X  CARDS,  4  CARDS  FOR  EACH  SEGMENT  IN  THE  ORDER  AS  THEY 
ARE  DEFINED  IN  THE  KNT  VECTOR.) 

t HF<  I  ,  J  ,  K >  ,  J-l  ,  12  )  THE  COEFFICIENTS  OF  THE  QUADRATIC  FORM 
,1-1.4  FUNCTION  USED  TO  DEFINE  THE  ORIENTATION 

OF  INTERIOR  SEGMENT  KNT(K)  WITH  RESPECT  TO 
REFERENCE  SEGMENT  OF  THE  ELEMENT. 

FORM  THE  COLUMN  VECTOR  V  WITH  FOUR  COMPONENTS  Y.P.R  AND  1, 

WHERE  Y.P.R  ARE  THE  YAW,  PITCH  AND  ROLL  OF  THE  TERMINATING 
SEGMENT  RELATIVE  TO  THE  REFERENCE  SEGMENT.  LET  H  BE  A  SYMMETRIC 
4X4  MATRIX  SUCH  THAT  ^ ( V )  =  1/2  V.HV  REPRESENTS  A  QUADRATIC 
SCALAR  FUNCTION  OF  THE  VARIABLES  Y.P  AND  R  IN  RADIANS.  THUS 


YAW 

OF 

SEGMENT 

KNT <  K  )  = 

1/2 

V.HFII.J  , K  > V 

PITCH 

OF 

SEGMENT 

KNT(K)  - 

1  /2 

V.HFI  I  .  J  +  4  ,K  >V 

ROLL 

OF 

SEGMENT 

KNT(K)  - 

1/2 

V . HF (  I , J  +  8 , K  ) V 

( I ,J  =  1  .4  ) 

FORMAT  (1814) 

THE  NUMBER  OF  INTERIOR  SEGMENTS  FOR 
WHICH  HF  ARRAYS  ARE  TO  BE  SUPPLIED. 

THE  INTERIOR  SEGMENT  IDENTIFICATION  NUMBERS 
IN  THE  ORDER  OF  THE  HF  ARRAYS  TO  BE  SUPPLIED. 

IF  THE  VALUES  OF  NFX  AND  KNT  ARE  NOT  CONSISTENT 
WITH  THE  NEGATIVE  VALUES  OF  JNT  ON  CAROS 
B.3  THE  PROGRAM  WILL  TERMINATE  WITH  AN 
APPROPRIATE  ERROR  MESSAGE. 

FORMAT  ( 12F5.0  ) 


45 


C.  SUBROUTINE  VINPUT 

THESE  C  CAROS  ARE  USED  TO  PRESCRIBE  THE  MOTION  (ACCELERATION  TIME 
HISTORY)  OF  SPECIFIED  SEGMENTS.  NORMALLY  ONLY  ONE  SET  IS  SUPPLIED 
WITH  MSEG  (LAST  ITEM  ON  CARD  C.2)  EQUAL  TO  ZERO  (OR  BLANK)  TO  PRE¬ 
SCRIBE  THE  MOTION  OF  THE  PRIMARY  VEHICLE  (SEGMENT  NO.  NSEG+1). 

HOWEVER,  MULTIPLE  SETS  MAY  BE  SUPPLIED  (MAXIMUM  *  6)  WITH  MSEC  =  0 
ON  THE  LAST  SET  TO  DENOTE  THE  PRIMARY  VEHICLE. 

SEVERAL  OPTIONS  ARE  AVAILABLE  FOR  EACH  PRESCRIBED  MOTION. 

THE  REQUIRED  INTUTS  FOR  EACH  OPTION  ARE  AS  FOLLOWS: 

OPTION  1:  HALF  SINE  WAVE  DECELERATION  IMPULSE  ( NATAB  *  0) 

REQUIRED  INPUTS  -  CARO  C.li  CARD  C.2. A:  ANGLE ( 1  )  ,  ANGLE  <  2  )  .  VIPS, 
VTIME ,  XO,  NATAB=0 ,  MSEG. 

OPTION  2:  TABULAR  UNIDIRECTIONAL  DECELERATION  (NATAB  >  0) 

REQUIRED  INPUTS  -  CARO  C.l;  CARD  C.2. A:  ANGLE (  1  )  ,  ANGLE ( 2  )  ,  VIPS, 
XO,  NATAB>0 ,  ATO,  ADT,  MSEG:  CARDS  C.3. 

OPTION  3:  SIX  DEGREE  OF  FREEDOM  DECELERATION  (NATAB  <  0  AND  LTYPE  =  0) 

REQUIRED  INPUTS  -  CARD  C.l:  CARD  C.2. A:  ANGLE (  1  > ,  ANGLE ( 2  ) , 

ANGLE  <  3 ) ,  VIPS,  XO.  NATAB<0  ,  ATO,  ADT,  MSEG; 

CARO  C.2.B:  LTYPE-0,  VMEG :  CARDS  C.4. 

OPTION  4:  SPLINE  FIT  POSITION,  VELOCITY  OR  ACCELERATION  DATA 
(NATAB  <0  AND  LTYPE  >  0) 

REQUIRED  INPUTS  -  CARO  C.l:  CARD  C.2. A:  NATAB<  0 ,  ATO,  ADT.  MSEG; 

CARO  C.2. 8;  LTYP£>0,  LF IT,  NPTS:  CARDS  C.5. 

THESE  OPTIONS  AND  THEIR  REQUIRED  INPUTS  HAVE  BEEN  ESTABLISHED  IN  SUCH 
A  MANNER  THAT  ANY  PREVIOUS  INPUT  DECKS  ARE  STILL  ACCEPTABLE  AS  INPUT, 
EXCEPT  THAT  CARD  C.2.B  WAS  ADDED  FOR  OPTION  3  FOR  VERSION  13  OF  THE 
CVS  PROGRAM.  FOR  VERSION  19,  CARD  C.2.B  HAS  SEEN  MODIFIED  AND  OPTION  4 
(CARDS  C . 5 )  AND  THE  MULTIPLE  PRESCRIBED  MOTION  WERE  ADDED. 

CARD  C.l  FORMAT  ( 20A4 )  ** 

VPSTTL < I ) , I » 1 , 20  DESCRIPTION  OF  THE  CRASH  VEHICLE  DECELERATION 

(80  CHARACTERS). 
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CARD  C.2.A  FORMAT  (8F6.0.  16.  2F6.0.  16) 

ANGLE (  I  > ,  I  »  l  .  3  OPTIONS  1  A*0  ?:  ANGLE!  1!  AND  ANGLE!  2  >  'DEG. 

ARE  THE  AZIMUTH  AND  ElEvA’ION  OBLIQUE  ANG.FS- 
OF  THE  DIRECTION  OF  THE  DECELERATION  IMPULSE. 
THE  INITIAL  VAW.  PITCH  AND  ROLL  OF  THE  VEHICLE 
ARE  ASSUMED  TO  BE  ZERO. 

option  3;  the  three  angles  are  the  initial  yaw 

PITCH  AND  ROLL  DEG  )  OF  THE  VEHICLE. 

VIPS  THE  INITIAL  VELOCITY  , IN/SEC)  OF  ThE  VEHICLE. 

FOR  OPTION  1,  A  NEGATIVE  VALUE  MAY  BE  SUPPi  IED 
TO  INDICATE  THAT  THE  VEHICLE  WILL  ACCELERATE 
FROM  AN  INITIAL  VELOCITY  OF  ZERO  TO  -VIPS. 

VT I  ME  THE  TIME  DURATION  (SEC)  OF  THE  HALF  SINE  WAVE 

DECELERATION  IMPULSE.  CANNOT  BE  ZERO  OR  BLANK 
FOR  OPTION  1  . 

X  0 (  I  )  ,  I  «I  ,  3  THE  X,  Y  AND  Z  COORDINATES  (IN)  OF  ThE  VE-UClE 

REFERENCE  ORIGIN  IN  INERTIAL  REFERENCE. 


NATAB  NUMBER  OF  TIME  POINTS  OF  VEHICLE  DECELERATION 

DATA  TO  BE  SUPPLIED  OR  GENERATED  B  Y  T  H  E  PRO¬ 
GRAM.  THE  ALGEBRAIC  SIGN  OF  NATAB  DETERMINES 
THE  OPTION  OF  PRESCRIBED  MOTION  AS  FOLLOWS: 

IF  NATAB  *  0  (OPTION  1).  THE  IMPULSE  IS  AN 
ANALYTICAL  HALF  SINE  WAVE  FUNCTION  THAT 
(VIPS>0)  DECELERATES  THE  VEHICLE  FROM  AM 
INITIAL  VELOCITY  OF  VIPS  TO  ZERO,  OR 
(VIPSCO)  ACCELERATES  THE  VEHICLE  FROM  AN 
INITIAL  VELOCITY  OF  ZERO  TO  -VIPS  IN  VT I  ME  SEC 

IF  NATAB  >  0  (OPTION  2).  THE  VEHICLE  MOT  I DN  IS 
UNIDIRECTIONAL  AND  NATAB  VALUES  OF  LINEAR 
DECELERATION  ARE  TO  BE  SUPPLIED  ON  CARDS  C.3. 
NATAB  SHOULD  BE  ODD.  MAXIMUM  VALUE  IS  59. 

IF  NATAB  <  0  (OPTIONS  3  AND  4),  THE  PRESCRIBED 
MOTION  IS  SPECIFIED  ON  EITHER  CARDS  C.4  OR  C.5 
HERE  MATAB  (•  -NATAB)  IS  THE  NUMBER  OF  TIME 
POINTS  OF  ACCELERATION  DATA  TO  BE  SUPPLIED  ON 
CARD  C.4  OR  COMPUTED  FROM  THE  SPLINE  FIT  DATA 
ON  CARDS  C.5.  MAXIMUM  VALUE  OF  MATAD  IS  101. 

ATO.ATO  THE  FIRST  TIME  AND  FIXED  TIME  INTERVAL  (SEC) 

FOR  THE  TABLE  OF  ACCELERATION  DATA  THAT  FOR 
(OPTION  3)  IS  TO  BE  SUPPLIED  ON  CAROS  C.4.  OR 
(OPTION  4)  IS  TO  BE  COMPUTED  FROM  THE  SPLINE 
FIT  DATA  TO  BE  SUPPLIED  ON  CARDS  C.5. 


msec  the  segment  number  associated  with  this  pre-  * 

SCRIBED  DECELERATION  TIME  HISTORY.  IF  MS EG  IS  * 
LESS  THAN  OR  EQUAL  TO  NSEG  (CARD  B.I),  THE  • 

MOTION  OF  SEGMENT  NO.  MSEC  AS  DEFINED  ON  CARDS  * 

8.2  WILL  BE  PRESCRIBED  (NOTE:  EXTREME  CAUTION 
MUST  BE  EXERCISED  IN  USING  THIS  OPTION.)  * 

IF  MSEG  >  NSEG.  THE  SETS  MUST  3E  SUPPLIED  IN  * 

THE  ORDER  MSEG-NSEG*1.  NSEG+2,  ETC.,  TO  PRE-  * 

SCRIBE  THE  MOTION  OF  SECONDARY  VEHICLE  SEGMENTS.  * 
IF  MSEG  -  0,  THIS  IS  THE  LAST  (OR  ONLY)  SET  OF 
C  CARDS  TO  BE  SUPPLIED  TO  PRESCRIBE  THE  MOTION  * 
OF  THE  PRIMARY  VEHICLE  WHOSE  SEGMENT  NO.  WILL  * 

BE  ONE  GREATER  THAN  NSEG  OR  THE  LAST  VALUE  OF  * 

MSEG  THAT  WAS  GREATER  THAN  NSEG.  * 

CARD  C.2.B  FORMAT  (316.  22X,  3F10.0)  S 

THIS  CARO  IS  REQUIRED  ONLY  IF  NATAB  <  0  (OPTIONS  3  AND  4) 

NOTE:  THIS  CARD  WAS  ADDED  FOR  VERSION  13  OF  THE  CVS  PROGRAM  TO  SUPPLY 
THE  INITIAL  ANGULAR  VELOCITY  AND  REVISED  FOR  VERSION  19.  A  BLANK  CARD 
SHOULD  BE  INSERTED  HERE  FOR  ANY  PREVIOUS  INPUT  DATA  DECKS  THAT  UTILIZED 
THE  SIX  DEGREE  OF  FREEDOM  OPTION  ON  CARDS  C.4. 

LTYPE  OPTION  3:  SUPPLY  A  VALUE  OF  ZERO  OR  BLANK  FOR 

THE  SIX  OEGREE  OF  FREEDOM  INPUT  ON  CARDS  C.4. 
OPTION  4:  A  VALUE  OF  1.2  OR  3  SPECIFIES  THAT 
THE  TABLES  TO  BE  SUPPLIED  ON  CARDS  C.5  ARE 
(1)  POSITION.  (2)  VELOCITY  OR  (3)  ACCELERATION 
DATA  FOR  EACH  TIME  POINT. 

LF IT  THE  OEGREE  OF  THE  POLYNOMIALS  TO  BE  SPLINE 

FITTED  THROUGH  THE  TIME  POINT  DATA  ON  CARDS  D.5. 

A  VALUE  OF  0.  1.  2  OR  3  MAY  BE  USED  BUT  THE 
OEGREE  SHOULD  BE  SUFFICIENT  TO  PRODUCE  CONT¬ 
INUITY  FOR  THE  COMPUTED  VELOCITY  VALUES. 

FOR  LTYPE  »  1.  SUPPLY  LFIT  -  2  OR  3. 

FOR  LTYPE  •  2.  SUPPLY  LF IT  -  1.2  OR  3. 

FOR  LTYPE  •  3.  SUPPLY  LFIT  -  0,1,2  OR  3. 

NOTE:  FOR  LFIT  -  0,  A  CONSTANT  VALUE  IS 

ASSUMEO  FROM  THE  CURRENT  TIME  VALUE  TO  THE 
NEXT  TIME  VALUE  BUT  ROUND  OFF  ERRORS  IN 
TIME  COMPUTATIONS  MAY  NOT  PRODUCE  THE  TIME 
DESIRED. 

NPTS  THE  NUMBER  OF  ACTUAL  TIME  POINT  DATA  TO  BE 

SUPPLIED  ON  CARDS  C.5. 

VMEG( I >, !•! ,3  THE  THREE  COMPONENTS  OF  THE  INITIAL  ANGULAR 

VELOCITY  (DEG/SEC)  ABOUT  THE  LOCAL  X,  Y  AND 
Z  AXES  OF  THE  VEHICLE. 
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•t»*l  *  »  *»*»»»»»»»***  *  *  *  »  V)  (A  It  t!  U  III 


CARDS  C.3.A  -  C.3.N  FORMAT  (12F6.0) 

THESE  CARDS  ARE  REQUIRED  ONLY  IF  NATAB  >  0  (OPTION  2> 

DEC< I  ) . 1  =  1 .NATAB  THE  VALUES  OF  DECELERATION  (G'S)  OF  THE  VEHICLE 
FOR  THE  NATAB  EQUALLY  SPACED  TIME  POINTS 

T<  I  )  *  ATO  ♦  (  I  -  1  )  *ADT  FOR  1  =  1, NATAB. 

SUPPLY  12  VALUES  PER  CARD,  USE  AS  MANY  CARDS 
AS  NECESSARY.  SINCE  A  SIMPSON'S  INTEGRATION 
IS  USED  TO  COMPUTE  VELOCITY  AND  POSITION, 

THE  VALUE  OF  NATAB  MUST  BE  ODD.  THE  LAST 
VALUE,  ATA3< 1  .NATAB  )  WILL  BE  USED  TO  INTEGRATE 
FOR  ANY  TIME  GREATER  THAN  T<  NATA3- 1  ) . 


CARDS  C.4.A  -  C.4.M  FORMAT  (10X.  6F10.0) 

THESE  CARDS  ARE  REQUIRED  IF  NATAB<  0  AND  LTYP  E  =0  (OPTION  3) 

MATAB  CARDS  ARE  REQUIRED  WHERE  MATAB  =  -NATAB.  EACH  CARD  (I) 

WILL  CONTAIN  DATA  FOR  EQUALLY  SPACED  TIME  POINTS  Til).  WHERE 

T{ I  )  =  ATO  +  ( I -  1 ) *ADT  FOR  1  =  1, MATAB. 

ATAB(0,I  ),J  =  1  .3  THE  X.Y  AND  Z  COMPONENTS  (G'S)  OF  THE  LINEAR 

DECELERATION  OF  THE  VEHICLE  ORIGIN  AT  TIME  T(I> 

ATABfO, I >,0  =  4,6  THE  ANGULAR  ACCEI E RAT  I ONS  <DEG/SEC«*2>  ABOUT 

THE  LOCAL  X.Y  AND  Z  AXES  OF  THE  VEHICLE  AT  T(!> 

NOTE:  THE  PROGRAM  WILL  INTEGRATE  FOR  VELOCITY  AND  POSITION  BEYOND 
THE  LAST  TIME  POINT  USING  THE  VALUCS  AT  THAT  POINT.  THE  PROGRAM 
WILL  PRINT  AT  INPUT  TIME  A  COMPLETE  TABLE  OF  THE  INTEGRATED 
VELOCITY  AND  POSITION  FROM  THE  SUPPLIED  ACCELERATION  DATA.  THE 
INTEGRATION  PROCEDURE  IS  NOT  IDENTICAL  TO  THE  PROGRAM  INTEGRATOR. 
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CAROS  C.5.A  -C.5.M  FORMAT  (7F10.0) 

THESE  CAROS  ARE  REQUIREO  IF  NATAB  <  0  AND  LTYPE  >0  (OPTION  4> 

(LTVPE-1)  CARDS  ARE  REQUIRED  FIRST  TO  SET  INITIAL  CONDITIONS 
FOLLOWED  BY  NPTS  CAROS  CONTAINING  TIME  POINT  DATA. 

IF  LTYPE  =•  1 ,  THE  INPUT  TABLE  IS  POSITION  DATA  FOR  NPTS  TIME  POINTS. 

IF  LTYPE  »2 ,  THE  FIRST  CARD  IS  THE  INITIAL  POSITION  DATA,  WHICH  IS 
FOLLOWED  BY  THE  INPUT  TABLE  OF  VELOCITY  DATA  FOR  NPTS  TIME  POINTS. 

IF  LTYPE”3 ,  THE  FIRST  CARD  IS  THE  INITIAL  POSITION  DATA,  THE  SECOND 
CARD  IS  THE  INITIAL  VELOCITY  DATA.  WHICH  IS  FOLLOWED  BY  THE  INPUT 
TABLE  OF  ACCELERATION  DATA  FOR  NPTS  TIME  POINTS. 


T< I)  THE  TIME  (SEC)  FOR  THE  DATA  ON  THIS  CARD. 

IF  THIS  CARD  IS  FOR  INITIAL  CONDITION  DATA, 

T(  1  )  SHOULD  BE  ZERO  OR  BLANK,  THE  TIMES 
SHOULD  BE  IN  ASCENDING  ORDER  BUT  DO  NOT 
HAVE  TO  BE  EQUALLY  SPACED. 

XYZIO , I >,J=1 .3  IF  POSITION  DATA.  THE  X.Y  AND  Z  COORDINATES 

(IN)  OF  THE  VEHICLE  ORIGIN  IN  THE  INERTIAL 
REFERENCE  COORDINATE  SYSTEM  FOR  TIME  T(I>. 

IF  VELOCITY  DATA,  THE  X.Y  AND  Z  COMPONENTS 
(IN/SEC)  OF  VELOCITY  OF  THE  VEHICLE  ORIGIN 
IN  INERTIAL  REFERENCE  FOR  TIME  T ( I > . 

IF  ACCELERATION  DATA.  THE  X.Y  AND  Z  COMPONENTS 
( IN/SEC**2 )  OF  THE  DECELERATION  OF  THE  VEHICLE 
ORIGIN  IN  INERT/AL  REFERENCE  FOR  TIME  T( I). 

X YZ( 0  , I  )  ,  U  =  4 , 6  IF  POSITION  DATA.  THE  YAW,  PITCH  AND  ROLL  (DEG) 

OF  THE  VEHICLE  COORDINATE  REFERENCE  AXES  WITH 
RESPECT  TO  THE  INERTIAL  REFERENCE. 

IF  VELOCITY  DATA.  THE  COMPONENTS  OF  ANGULAR 
VELOCITY  (DEG/SEC)  ABOUT  THE  LOCAL  X.Y.Z  AXES. 
IF  ACCELERATION  DATA.  THE  COMPONENTS  OF  ANGULAR 
ACCELERATION  <DEG/SEC**2>  ABOUT  THE  LOCAL 
X , Y  AND  Z  AXES  . 

NOTE:  THE  PROGRAM  WILL  SPLINE  FIT  THE  NPTS  DATA  POINTS  FOR  EACH  OF  THE 
SIX  COMPONENTS  INDEPENDENTLY  TO  PRODUCE  A  PIECE-WISE  SET  OF  POLYNOMIALS 
OF  DEGREE  LFIT.  THESE  POLYNOMIALS  ARE  THEN  EVALUATED  TO  PRODUCE  A  SET 
OF  ACCELERATION  TABLES  AT  MATAB ( =  -NATAB)  EQUALLY  SPACED  TIME  POINTS 
EQUIVALENT  TO  THE  SIX  DEGREE  OF  FREEDOM  (OPTION  3)  DATA  OF  CARDS  C.4. 
THE  PROGRAM  WILL  THEN  PRINT  AT  INPUT  T  F  ME  A  COMPLETE  TABLE  OF  THE 
INTEGRATED  VELOCITY  AND  POSITION  FROM  THESE  GENERATED  ACCELERATION 
DATA.  THE  INTEGRATION  PROCEDURE  USED  IS  NOT  IDENTICAL  TO  THE  PROGRAM 
INTEGRATOR  . 


SUBROUTINE  SINPUT 


CARO  0.1 


FORMAT  (916) 


* 


NPL 


THE  NUMBER  OF  PLANES  DESCRIBING  CONTACT  PANELS  I 
(30  MAXIMUM).  I 


NBLT  THE  NUMBER  OF  BELTS  USED  TO  RESTRAIN  THE 

CRASH  VICTIM  (8  MAXIMUM). 


N8AG  THE  NUMBER  OF  AIR3AGS  USED  TO  RESTRAIN  THE  I 

CRASH  VICTIM  (MAX  -  5.  MAX  NSEG+NBAG  «  20).  I 

NELP  THE  NUMBER  OF  CONTACT  ELLIPSOIDS  TO  BE 

SUPPLIED  ON  CARDS  D.5  (40  MAXIMUM).  I 

NQ  THE  NUMBER  OF  CONSTRAINTS  TO  BE  SUPPLIED 

ON  CARDS  0.6.  EACH  CONSTRAINT  TYPE  5  WILL  BE 
CONSIDERED  AS  TWO  CONSTRAINTS  REQUIRING  TWO 
SETS  OF  CARDS  (NOTE!  THE  PROGRAM  WILL  LATER 
INCREMENT  NO  BY  1  FOR  EACH  N F ( 1  )  *  0  ON 
CARDS  F.l.B  AND  F.3.B  AND  THE  FINAL 
MAXIMUM  ON  NQ  IS  12). 

NSD  THE  NUMBER  OF  SPRING  DAMPERS  TO  BE  SUPPLIED 

ON  CARDS  D.3  (20  MAXIMUM). 

NHRNSS  NUMBER  OF  HARNESS-BELT  SYSTEMS  TO  BE 

SUPPLIED  ON  CARDS  F.8.B-F.3.D.  MAY  BE  ZERO 
OR  BLANK.  MAXIMUM  VALUE  ■  5.  NOTE:  IN  VERSION 
12  (FOR  WPAFB  >  THIS  VARIABLE  WAS  SUPPLIED  ON 
CARO  F.8.A. 

NWINDF  THE  NUMBER  OF  WIND  FORCE  FUNCTIONS  TO  BE 

SUPPLIED  ON  CARDS  E.6.A-E.5.N.  MAY  BE  ZERO. 

NOTE:  IN  VERSION  12,  THIS  VARIABLE  WAS  SUPPLIED 
ON  CARO  E.S. 

NUNTF  THE  NUMBER  OF  JOINT  RESTORING  FORCE  FUNCTIONS 

TO  BE  SUPPLIED  ON  CARDS  E.7.A-E.7.N.  MAY 
BE  BLANK  OR  ZERO.  NOTE:  IN  VERSION  12,  THIS 
VARIABLE  WAS  SUPPLIED  ON  CARD  E.S. 
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TT  NP>  IS  NONZERO  ON  CARD  D.l,  NPL  SETS  OF  CARDS  D.2  ARE  REQUIRED. 


I 


CARD  0.2. A 


FORMAT  (14,  4 X  .  5A4  ) 


J 


THE  PLANE  IDENTIFICATION  NUMBER.  MUST  BE  SUP-  I 
PLIED  AS  CONSECUTIVE  INTEGERS  1  TO  NPL.  I 


PLTTLU.O). 1-1,5  A  20  CHARACTER  DESCRIPTION  OF  THE 
JTH  PANEL. 


CARDS  D.2.B  -  D.2.D 


FORMAT  (3F12.0) 


P 1 < I >,1=1,3 


P2< I >,  1-1  ,3 


P3< I > ,  1  =  1  ,3 


THE  X  ,  V 

AND 

Z  COORDINATES 

OF 

POINT 

PI 

IN 

VEHICLE 

(  OR 

SEGMENT 

TO  WHICH 

PLANE 

IS 

ATTACHED)  REFERENCE 

<  IN  ) . 

THE  X ,  Y 

AND 

Z  COORDINATES 

OF 

POINT 

P  2 

IN 

VEHICLE 

(  OR 

SEGMENT 

TO  WHICH 

PLANE 

IS 

ATTACHED)  REFERENCE 

<  IN  >  . 

THE  X.Y 

AND 

Z  COORDINATES 

OF 

POINT 

P  3 

IN 

VEHICLE 

(OR 

SEGMENT 

TO  WHICH 

PLANE 

IS 

ATTACHED)  REFERENCE  (IN). 


WHERE  PI,  P 2  AND  P3  ARE  THREE  OF  THE  CORNERS  OF  A  PARALLELOGRAM  SUCH 
THAT  THE  EDGE  P1P2  IS  LESS  THAN  180  DEGREES  CLOCKWISE  (AS  VIEWED  FROM 
THE  EXTERNAL  SURFACE)  FROM  THE  EDGE  P1P3.  NOTE:  ANY  PREVIOUS  INPUT 
DECK  IN  WHICH  THE  VECTOR  P2-P1  IS  NOT  PERPENDICULAR  TO  THE  VECTOR 
P3-P1  WILL  NOW  PRODUCE  DIFFERENT  RESULTS. 
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w  w  m  w  (a 


IF  NBLT  IS  NONZERO  ON  CARO  D.l,  NBLT  SETS  OF  CARDS  0.3  ARE  REQUIRED. 


I 


CARO  0.3. A  FORMAT  ( SA4  ) 

BLTTTL(I.J), 1-1,5  A  20  CHARACTER  DESCRIPTION  OF  THE 
OTH  BELT. 


CARD  0.3.B  FORMAT  (6F12.0) 

BELTII.O), 1-1,3  X , Y ,  AND  Z  COORDINATES.  IN  VEHICLE  (OR  SEGMENT 
TO  WHICH  BELT  IS  ANCHORED)  REFERENCE.  OF 
ANCHOR  POINT  A  FOR  THE  OTH  BELT  (IN). 

BELT( I .0  ) . 1-4,6  X.Y.  AND  Z  COORDINATES.  IN  VEHICLE  (OR  SEGMENT 

TO  WHICH  BELT  IS  ANCHORED)  REFERENCE.  OF 
ANCHOR  POINT  B  FOR  THE  OTH  BELT  (IN). 

NOTE:  THE  PROGRAM  MUST  PASS  A  PLANE  THROUGH  THE  THREE  POINTS,  ANCHOR 

POINT  A,  ANCHOR  POINT  B.  AND  A  FIXED  POINT  ON  THE  CONTACTED  BODY  SEGMENT. 
IF  ANCHOR  POINTS  A  AND  B  COINCIDE.  THEY  MUST  BE  SEPARATED  SLIGHTLY  FOR 
INPUT  SUCH  THAT  THE  DESIRED  BELT  PLANE  WILL  BE  DEFINED. 


CARD  D.3.C  FORMAT  (5F12.0) 

BELT< I ,J ), 1=7,9  X,  Y,  AND  Z  COORDINATES.  IN  LOCAL  BODY 

SEGMENT  REFERENCE  (BUT  WITH  RESPECT  TO 
ELLIPSOID  CENTER,  NOT  C.G.).  OF  THE 
FIXED  CONTACT  POINT  ON  THE  BODY 
SEGMENT  FOR  THE  JTH  BELT  (IN). 

BELT(IO.J)  CURRENTLY  NOT  USED  BY  THE  PROGRAM. 

BELT(ll.J)  BELT  SLACK  (IN).  THE  SLACK,  WHEN  ADDED  TO 

THE  INITIAL  GEOMETRIC  LENGTH,  RESULTS  IN 
THE  INITIAL  BELT  LENGTH.  IF  DESIRED,  THE 
INITIAL  BELT  LENGTH  MAY  BE  INPUTTED  AS  A 
NEGATIVE  NUMBER  AND  THE  PROGRAM  WILL 
COMPUTE  THE  SLACK. 
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IF  NBAG  IS  NONZERO  ON  CARD  0.1,  NBAG  SETS  OF  CARDS  D.4  ARE  REQUIRED 
BV  SUBROUTINE  AIRBG1. 


CARD  D.4. A 

BAGTTU I  ,0),  I-i ,5 


FORMAT  <SA4,  14) 

A  20  CHARACTER  DESCRIPTION  OF  THE 
OTH  AIR  BAG. 


NPANEL  <  0  )  NUMBER  OF  VEHICLE  CONTACT  PANELS 

THAT  ARE  ALLOWED  TO  INTERACT  WITH 
THE  JTH  AIR  BAG  (MAXIMUM  -  4). 


CARD  D.4.B  FORMAT  (6F12.0) 

AB< I ,0  ), 1*1 ,3  THE  X,  V  ANO  Z  SEMIAXES  OF  THE  OTH  AIR  BAG 

WHEN  FULLY  INFLATED  AND  UNDEFORhED  (IN). 

BFA< 1,0). 1-1.3  THE  X,Y  AND  Z  COORDINATES  OF  THE  CENTER  OF 

THE  AIR  BAG  CONTACT  ELLIPSOID  WITH  RESPECT 
TO  THE  AIR  BAG  CENTER  OF  GRAVITY  (IN). 


CARD  D.4.C 


FORMAT  (6F12.0) 


YB.PB.RB  THE  INITIAL  ORIENTATION  (YAW,  PITCH, 

AND  ROLL)  OF  THE  JTH  AIR  BAG  IN  THE 
VEHICLE  REFERENCE  (DEG). 

ZDEPf I, J), 1*1, 3  THE  X,  Y,  AND  Z  COORDINATES  OF  THE 
DEPLOYMENT  POINT  OF  THE  JTH  AIR 
BAG  IN  THE  LOCAL  REFERENCE  OF  THE 
1ST  PANEL  ON  CARD  D.4.G  (  IN  )  . 


CARD  0.4.D 
XBM( J  ) 
CYTD( J  ) 

CYPAf  J  ) 
CYSP ( J  ) 
CYT0( J  ) 
CYV0( J  ) 


FORMAT  (6F12.0) 

WEIGHT  OF  AIR  BAG  MEMBRANE  AND  CONTENTS  (LBS). 

GAS  SUPPLY  ACTUATOR  FIRING  TIME  AFTER 
THE  START  OF  VEHICLE  DECELERATION  (SEC). 

ATMOSPHERIC  PRESSURE  (PSIA). 

INITIAL  GAS  SUPPLY  PRESSURE  (PSIG). 

INITIAL  GAS  SUPPLY  TEMPERATURE  (DEG  R). 

GAS  SUPPLY  RESERVOIR  VOLUME  (IN--3). 
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CARD  D.4.E 
C VCD ( J  ) 

CYK<  0  ) 

CYR< J  ) 
CYAT< J  ) 
CYP V( J > 

CYCDOfO  > 


FORMAT  (6F12.0) 

SONIC  THROAT  DISCHARGE  COEFFICIENT 
(DIMENSIONLESS  ) . 

RATIO  OF  SPECIFIC  HEATS  OF  SUPPLY 
GAS  (DIMENSIONLESS). 

SPECIFIC  GAS  CONSTANT  (IN/DEG  R). 

SONIC  THROAT  AREA  (IN**2>. 

VENT  PRESSURE  OF  THE  EXHAUST 
ORIFICE  (PSIG). 

EXHAUST  ORIFICE  DISCHARGE 
COEFFICIENT  (DIMENSIONLESS). 


CARD  D.4.F 


FORMAT  (5F12.0) 


C YAO( J  ) 


EXHAUST  ORIFICE  AREA  (IN**2). 


SPRK(J)  SPRING  CONSTANT  OF  A  LINEAR  SPRING 

USEO  TO  SIMULATE  ATTACHMENT  OF  THE 
BAG  AT  THE  DEPLOYMENT  POINT  IN  THE 
VEHICLE  (LB/IN). 


VSCS(J)  COEFFICIENT  OF  SLIDING  FRICTION  OF 

THE  AIR  BAG  (DIMENSIONLESS) 


CK( J )  PARAMETER  USED  TO  STABILIZE  AIR 

BAG  NUMERICAL  INTEGRATION  (SEC*»-I). 
SUGGESTED  VALUE  -  250. 


CMASS(O)  MULTIPLIER  TO  INCREASE  OR  DECREASE 

THE  MASS  OF  THE  AIR  BAG  TO  ARTIFICIALLY 
DAMPEN  THE  INTEGRATED  AIR  BAG  MOTION. 
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NPANEL ( J  )  SETS  OF  THE  FOLLOWING  TWO  CARDS  ARE  REQUIRED  TO  DEFINE  THE 
ELLIPSOIDS  USED  TO  APPROXIMATE  THE  CONTACT  PANELS  FOR  THE  JTII  AIR  BAG. 
THE  FIRST  PANEL  IS  THE  REACTION  FANEL. 


CARD  D.4.G  FORMAT  (6F12.0) 

B(  I  ,K  .0  )  .  I»1  .3  X.  Y,  AND  Z  SEMIAXES  FOR  THE  KTH 

PANEL  FOR  THE  JTH  AIR  BAG  (IN). 

BFB< I ,K,0  ), t-1 .3  THE  LOCATION  OF  THE  CENTER  OF  THE 

PANEL  ELLIPSOID  WITH  RESPECT  TO  ITS 
CENTER  OF  GRAVITY  (  IN  )  . 


CARD  D.4.H  FORMAT  (6F12.0) 

ZR( I , K  ,0  > ,  I ■ 1  ,  3  X.  Y,  ANO  Z  COORDINATES  IN  VEHICLE 

REFERENCE  OF  THE  CENTER  OF  GRAVITY 
OF  THE  KTH  PANEL  OF  THE  JTH  AIR  BAG  (IN). 

YP.PP.RP  ANGULAR  ORIENTATION,  YAW, PITCH  AND  ROLL  (DEG.),  I 

OF  THE  KTH  PANEL  WITH  RESPECT  TO  THE  VEHICLE.  I 
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IF  NELP  IS  NONZERO  ON  CARO  0.1.  NELP  0.5  CARDS  ARE  REQUIRED 
BY  SUBROUTINE  BINPUT. 


I 

I 


NOTE:  NELP  IS  THE  NUM8ER  OF  CONTACT  ELLIPSOIDS  TO  BE  SUPPLIED  HERE. 
NOT  THE  NUMBER  OF  CONTACT  ELLIPSOIDS  IN  THE  PROGRAM.  THE  FIRST  NSEG 
ELLIPSOIDS  WERE  SUPPLIED  ON  CARDS  S.2.A  -  B.2.I  WITH  NO  ANGULAR 
ROTATIONS.  THEY  MAY  BE  REPLACED  HERE  IF  DESIRED. 


CARDS  D.5.A  -  D.5.J  FORMAT  (16.  9F6.0) 

(NELP  CARDS) 

M  CONTACT  ELLIPSOID  NUMBER.  MAX  »  40.  IF  I 

M  <  NSEG  +  1,  DATA  WILL  REPlACE  INPUT  SUPPLIED 
ON  CARDS  B.2A  -  B.2.I.  OTHERWISE.  M  MUST  BE 
GREATER  THAN  NSEG+NBAG+  1 . 

Pl( I), 1-1.3  THE  X,  Y.  AND  2  SEMIAXES  OF  THE  CONTACT 

ELLIPSOID  (IN). 

P2(1>,1-1,3  THE  X,  Y.  AND  Z  COORDINATES  OF  THE 

ELLIPSOID  OFFSET  FROM  THE  SEGMENT  CENTER 
OF  GRAVITY. 

P3 ( I  ) , I - 1 , 3  THE  YAW,  PITCH  AND  ROLL  (DEGREES)  OF  THE 

CONTACT  ELLIPSOID  FROM  THE  PRINCIPAL  AXIS 
OF  THE  SEGMENT. 
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IF  NQ  IS  NONZERO  ON  CARO  0.1,  NO  0.6  CARDS  ARE  REQUIRED 


CARDS  D.6.A  -  0.6.0 
<  NQ  CARDS) 

KOTVPE ( 0  ) 


KOI ( J  ) 

KQ2<  J  ) 

RK1( I .0  ).  1*1 .3 

RKZ ( I , J  ) , I  *  1  ,  3 


FORMAT  <316.  6F6.0) 


TYPE  NO.  OF  THE  OTH  CONSTRAINT 
l:  POINT  SPECIFIED  BY  RK1  ON  SEGMENT  KQI 
WILL  BE  C0HSTRA1NED  TO  BE  THE  SAME  AS 
THE  POINT  SPECIFIED  BY  RK2  ON  SEGMENT 
KQ2 . 

2:  POINT  SPECIFIED  BY  RK1  ON  SEGMENT  KQI 
WILL  BE  CONSTRAINED  TO  REMAIN  AT  AN 
EQUAL  DISTANCE  ID  >  0)  FROM  THE  POINT 
SPECIFIED  BY  RK2  ON  SEGMENT  KQ2 . 

5:  TENSION  ELEMENT  CONSTRAINT  CONNECTING 
POINT  RK 1  ON  SEGMENT  KQ!  TO  POINT  RK2 
ON  SEGMENT  RK2  (REQUIRES  TWO  CARDS  WITH 
KQTYPE  ,  KQI  AND  KQ2  THE  SAME  ON  BOTH  > . 

SEGMENT  IDENTIFICATION  NUMBER  OF  THE 
1ST  SPECIFIED  POINT. 

SEGMENT  IDENTIFICATION  NUMBER  OF  THE 
2ND  SPECIFIED  POINT. 

COORDINATES  OF  SPECIFIED  POINT  ON 
SEGMENT  KQI  (IN).  IF  KQTYPE  *  5,  THE  SECOND 
CARO  WILL  CONTAIN  THE  EFFECTIVE  MASSES  MA. 

MB  ANO  MAS  < LB.SEC**2/IN  )  IN  PLACE  OF  RK1  . 

COORDINATES  OF  SPECIFIED  POINT  ON 
SEGMENT  KQ2  (IN).  IF  KQTYPE  «  5,  THE  SECOND 
CARD  WILL  CONTAIN  THE  SPRING  CONSTANT  K 
(LB/IN),  THE  VISCOUS  DAMPING  CONSTANT  D 
(LB  SEC/IN)  AND  THE  REFERENCE  LENGTH  L  (IN) 

IN  PLACE  OF  RK2 .  NOTE:  IF  KQTYPE  »  I  AND  !(Q2 
IS  THE  NUMBER  FOR  THE  VEHICLE.  THEN  SUBROUTINE 
EQUILB  WILL  MODIFY  THESE  VALUES  OF  RK2  SUCH 
THAT  THEY  WILL  BE  EQUIVALENT  TO  RK1  IN  INERTIAL 
REFERENCE  FOR  TIME  ZERO.  (SEE  DESCRIPTION  UNDER 
CAROS  G.6. ) 
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CARO  0.7  IS  ALWAYS  REQUIRED.  SUPPLY  BLANK  CARD  FOR  NORMAL  30  MOTION. 


CARO  0.7  FORMAT  (1814)  IF  NSEG>18,  USE  2  CARDS. 

NS  YM<  J  > , J « I , NSEG  CONTROLS  SYMMETRY  OPTION  OF  BODY  SEGMENTS 
AS  FOLLOWS  : 

NS YM( U  )  =  0  :  NORMAL  THREE  DIMENSIONAL  MOTION  FOR  BODY 

SEGMENT  0. 

NSYM(J)  =  0  :  MOTION  OF  BODY  SEGMENT  0  WILL  BE  RESTRICTED 

TO  THE  X-Z  PLANE  WITH  NO  LATERAL  MOTION. 

HENCE  IT  WILL  BE  TWO  DIMENSIONAL. 

NS YM( J  )  «  K  :  BODY  SEGMENTS  0  AND  K  ARE  TO  REMAIN  SYMMETRICAL 

WITH  NO  LATERAL  MOTION.  THE  MOTION  OF  EACH  WILL 
BE  REPLACED  WITH  THEIR  AVERAGE  AND  RESTRICTED 
TO  THE  LOCAL  X-Z  PLANE.  NSYM( K  >  MUST  EQUAL  0. 

NSYM(U)  «  -K  :  BODY  SEGMENTS  J  AND  K  ARE  TO  REMAIN  MIRROR 
SYMMETRICAL  WITH  RESPECT  TO  THE  X-Z  PLANE. 

EQUAL  BUT  OPPOSITE  LATERAL  MOTION  IS 
PERMITTED.  NSYMl K  >  MUST  EQUAL  -J . 

NOTE  :  IN  THE  ABOVE  SYMMETRY  OPTIONS.  THE  USER  MUST  TAKE  EXTREME 

CARE  THAT  ALL  INPUT  WILL  ALLOW  THE  SYMMETRY  TO  EXIST. 
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IF  NSD  IS  NONZERO  ON  CARO  0.1.  NSD  0.8  CARDS  ARE  REQUIRED. 

CAROS  0.8. A  -  D.8.J  FORMAT  (213,  11F6.0) 

(NSD  CAROS) 

MSDM(J)  SEGMENT  IDENTIFICATION  NUMBERS  (M  AND  N> 

MSON(O)  TO  WHICH  THE  OTH  SPRING  DAMPER  IS  ATTACHED. 

APSDM( I ,J  ) , 1  =  1 .3  COORDINATES  OF  ATTACHMENT  POINTS  IN  LOCAL 
APSDNU.O), 1-1,3  SEGMENT  REFERENCE  ON  SEGMENTS  M  AND  N  FOR 
THE  OTH  SPRING  DAMPER  ( IN.  ) 

ASD(I.O), 1-1,5  COEFFICIENTS  OF  QUADRATIC  FUNCTIONS  TO 

1-1  :  DO  (IN)  COMPUTE  THE  SPRING  FORCE  (FS>  AMD  THE 

1-2  :  A 1  (LB/IN)  VISCOUS  FORCE  ( F 0  >  FOR  THE  OTH  SPRING 

1=3  :  A2  <LB/IN**2>  DAMPER  USING  THE  RELATIONSHIPS 

1=4  :  Bl  (LB  SEC/IN) 

1=5  :  B2  (LB  SEC**2/ 1  N**2  ) 

FS»  ( D -DO  )  * (  I A 1  I  +  A2*  I  D-DO  I  ) 

FD=  DV*  (  Bl  ♦  B2-IDVI  ) 

WHERE  D  AND  DV  ARE  THE  DISTANCE  AND  ITS  TIME 
DERIVATIVE  BETWEEN  THE  POINTS  APSDM  AND  APSDN. 

IF  A1  <  0.  AND  (D-DO)  <  0.  , 

PROGRAM  WILL  SET  FS-  0.,  I.E.  THIS  WILL  ACT  AS  A 
TENSION  ELEMENT. 
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SUBROUTINE  CINPUT  (FUNCTIONS  INPUT) 


THESE  FUNCTIONS  ARE  REFERRED  TO  BV  NUMBER  IN  THE  NF  ARRAYS  REQUIRED 
ON  CARDS  F.l.B,  F.2.B.  F.3.B  ANO  F.4.8.  THEY  ARE  USED  TO  DEFINE  THE 
FORCE  DEFLECTION,  INERTIAL  SPIKE.  R  (ENERGY  ABSORPTION)  FACTOR. 

G  ( OEFLECTION )  FACTOR  ANO  FRICTION  COEFFICENT  FUNCTIONS. 

EACH  FUNCTION  MAY  BE  SUBDIVIDED.  IF  DESIRED,  INTO  TVO  SEPARATE  PARTS, 
FI  AND  F2 ,  WHERE 

K 1 <  D )  IS  DEFINED  FOR  0  .LE.  DO  .LE.  D  .LE.  I D 1  I 
F  2  <  D )  IS  DEFINED  FOR  1011  .LE.  0  .LE.  ID2I. 


IN  ADDITION,  EACH  PART  OF  A  FUNCTION  MAY  BE  DEFINED  BY  EITHER  OF 
THREE  FUNCTIONAL  FORMS:  CONSTANT  VALUE,  TABULAR  DATA  OR  A  FIFTH 
DEGREE  POLYNOMIAL.  THE  EXISTENCE  AND  FORM  OF  EACH  PART  IS  DETERMINED 
BY  THE  SUPPLIED  VALUES  OF  00,  D1  AND  D2  AS  FOLLOWS: 


FI 

F2 

00 

01 

02 

CONSTANT 

- 

0 

0 

FI 

«  D2 

TABULAR 

- 

00 

.GE  . 

0 

01 

.LT. 

0 

0 

POLYNOMIAL 

- 

DO 

•  GE  . 

0 

D 1 

•  GT. 

0 

0 

TABULAR 

POLYNOMIAL 

DO 

.GE. 

0 

D I 

.LT. 

0 

D2 

■  GT.  0 

POLYNOMIAL 

TABULAR 

DO 

.GE. 

0 

01 

•  GT. 

0 

02 

.LT.  0 

POLYNOMIAL 

POLYNOMIAL 

00 

.GE. 

0 

01 

•  GT. 

0 

02  , 

■  GT.  0 

THE 

CONSTANT  FORM  IS  APPLICABLE 

TO  FI 

ONLY 

BECAUSE 

THE 

ROUTINES  ASSUME 

IF 

D  .GT.  ID2I 

THEN  F(D>  -  F< 

1  DZ  1  ) 

FOR 

02 

.NE.  0 

OR 

IF 

0  .GT.  ID1I 

THEN  FID)  -  F ( 

1  D  1  1  ) 

FOR 

02 

»  0. 

THE  CASE  OF  BOTH  FI  AND  F2  BEING  TABULAR  IS  UNNECESSARY. 
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A  MAXIMUM  OF  50  FUNCTIONS  MAY  BE  SUPPLIED  TO  THE  PROGRAM.  THESE 
FUNCTIONS  MAY  BE  OF  THE  TYPES  DESCRIBED  ON  EITHER  CARDS  E.1-E.4 
CARDS  £.6  OR  CARDS  E.7. 


I 


CARO  £.1  FORMAT  (14.  4X.  SA4  ) 

I  THE  FUNCTION  IDENTIFYING  NUMBER.  THESE 

NUMBERS  NEED  NOT  BE  SUPPLIED  IN  NUMERIC 
ORDER.  IF  THE  SAME  NUMBER  IS  USED  MORE 
THAN  ONCE,  A  WARNING  WILL  BE  PRINTED  AND 
THE  LAST  ONE  SUPPLIED  WILL  BE  USED.  THE 
END  OF  THE  FUNCTION  INPUT  IS  INDICATED  BY 
SUPPLYING  A  SINGLE  CARD  WITH  1  >  SO. 

KTITLE  A  20  CHARACTER  ALPHANUMERIC 

TITLE  DESCRIBING  THE  FUNCTION. 


6 


CARO  E.2 


FORMAT  (SF12.0) 


00  THE  LOWER  A3SCISSA  VALUE  OF  THE  FIRST  PART 

(FI)  OF  THE  FUNCTION.  UNITS  ARE  DEPENDENT  ON  I 

USAGE  OF  THE  FUNCTION,  I.E.  IN.  FOR  DEFLECTION,  I 
IN. /IN.  FOR  STRESS-STRAIN,  IN/SEC  FOR  RATE  * 

DEPENDENT  FUNCTIONS.  NORMALLY  A  VALUE  OF  ZERO  * 
IS  USED  FOR  FORCE  DEFLECTION  FUNCTIONS.  I 

A  NEGATIVE  VALUE  MAY  BE  SUPPLIED  FOR  RATE  * 

DEPENDENT  FUNCTIONS. 

D 1  THE  MAGNITUDE  OF  D1  IS  THE  UPPER  ABSCISSA 

VALUE  OF  FI  AND  THE  LOWER  ABSCISSA  VALUE  OF 
F2 ,  IF  ANY.  D 1  <  0  INDICATES  FI  IS  TABULAR, 

D 1  >  0  INDICATES  FI  IS  A  POLYNOMIAL,  AND 
01-0  INDICATES  FI  »  D2.  A  CONSTANT. 

02  IF  D 1  -  0,  D2  IS  THE  CONSTANT  VALUE  OF  FI. 

OTHERWISE,  THE  MAGNITUDE  OF  02  IS  THE  UPPER 
ABSCISSA  VALUE  OF  F2.  IF  D2  -  0,  F2  IS  NOT 
DEFINED!  IF  D2  IS  NEGATIVE,  F2  IS  TABULAR! 

ANO  IF  D2  IS  POSITIVE,  F2  IS  A  POLYNOMIAL. 

D3  IF  THE  FUNCTION  IS  TO  BE  USED  FOR  AN  INERTIAL 

SPIKE.  03  REPRESENTS  THE  ABSCISSA  VALUE  FOR 
WHICH  THE  INERTIAL  SPIKE  IS  TO  BE  IGNORED  IF 
UNLOADING  OCCURS  AFTER  DEFLECTION  EXCEEDS  D3. 

IF  THE  FUNCTION  IS  TO  BE  USED  FOR  A  COEFFICIENT 
OF  FRICTION,  D3  -  <l*U>/2  WHERE  U  IS  THE 
COEFFICIENT  OF  RESTITUTION  FOR  THE  IMPULSE 
OPTION  ( Q< D3<  1  OR  -1<U<  +  1>.  A  VALUE  OF  03  -  0 
MEANS  THAT  THE  IMPULSE  OPTION  WILL  NOT  BE 
USED  FOR  THOSE  CONTACTS  USING  THIS  FUNCTION. 

WHEN  THE  GLOBALGRAPHIC  OPTION  IS  USED,  A 
FRICTION  FUNCTION  IS  DEFINED  AND  THE  VALUE 
OF  03  IS  USED  TO  SPECIFY  THE  IMPULSE. 

(SEE  CARD  B.5. > 

04  IF  THE  FUNCTION  IS  TO  BE  USED  AS  A  FORCE 

DEFLECTION  FUNCTION  BY  SUBROUTINE  PLELP, 

D4-RHO ,  THE  SCALAR  THAT  DETERMINES  THE 
POINT  OF  FORCE  APPLICATION.  SUPPLY  ZERO 
FOR  POINT  OF  MAXIMUM  PENETRATION.  ONE  FOR 
CENTER  OF  INTERSECTION  ELLIPSE.  IF  USED  AS 
THE  FRICTION  FUNCTION  FOR  A  ROLL-SLIDE  CON¬ 
STRAINT.  D4  IS  THE  COEFFICIENT  OF  STATIC 
FRICTION  TO  BE  USED  FOR  THE  ROLL  CONSTRAINT. 
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THE  DEFINITIONS  OF  FI  AND  F2,  IF  THEY  EXIST,  A? E  NOW  SUPPLIED 
ON  CARD  E . 3  FOR  THE  FIFTH  DEGREE  POLYNOMIAL  DEFINITION,  OR  ON 
CARDS  E . 4  FOR  THE  TA8ULAR  DEFINITION. 


CARD  E . 3  FORMAT  (6F12.0) 

A0.A1 ,A2,A3,A4,A5  COEFFICIENTS  OF  FIFTH-DEGREE  POLYNOMIAL 

F  =  AO  +  A1*X  +  A2*X**2  +  A3*X**3  -  A4*X**4 
+  A5*X**5 

(UNITS  ARE  DEPENDENT  ON  USE  OF  FUNCTION.) 


CARD  E.4.A 


FORMAT  (  16  > 


NPI  THE  NUMBER  OF  DATA  POINTS  TO  BE 

SUPPLIED  TO  IDENTIFY  THE  FUNCTION  IF 
IT  IS  DEFINEO  IN  TABULAR  FORM. 


CARDS  E.4.B  -  E.4.N  FORMAT  (6F12.0) 

<X(  I  >,Y<  I  ), 1  =  1, NPI  )  THE  A8SCISSA  AND  ORDINATE  VALUES 
OF  THE  DATA  POINTS  USED  TO  DEFINE 
THE  TABULAR  FORM  OF  THE  FUNCTION. 

THE  PROGRAM  WILL  LINEARLY  INTERPOLATE 

TO  DETERMINE  INTERMEDIATE 

VALUES.  SUPPLY  3  POINTS  PER  CARD; 

USE  AS  MANY  CARDS  AS  REQUIRED. 

(UNITS  ARE  DEPENDENT  ON  USE  OF  FUNCTION.) 

NOTE:  ALWAVS  SUPPLY  A  CARD  E.l  WITH  A  FUNCTION  NUMBER  >  BO  AFTER 
ALL  FUNCTIONS  ARE  OEFINED  TO  SIGNAL  THE  END  OF  FUNCTION  INPUTS. 
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SUBROUTINE  KINPUT  (WIND  FORCE  AND  JOINT  RESTORING  FORCE  FUNCTIONS) 


NOTE:  CARD  E.5,  PREVIOUSLY  REQUIRED  FOR  VERSION  12  IWPAFB  CONTRACT 
NO.  F33615-75-C-5002  AS  DOCUMENTED  IN  REPORT  NO.  AMRL -TR-75- 1 4 )  IS 
NO  LONGER  REQUIRED.  THE  VARIABLES  NWINDF  AND  NJNTF  ARE  NOW  SUPPLIED 
ON  CARD  D . 1 . 

IF  NWI NOF  =  0  ON  CARD  D.l,  CAROS  E.6  ARE  NOT  REQUIRED.  OTHERWISE, 
NWINDF  SETS  OF  CARDS  E.6. A  -  E.6.N  ARE  REQUIRED. 


CARD  E.6. A 


FORMAT  <14,  4X,  5A4 ) 


Mr 


W 


I .KTITLE 


SAME  AS  CARD  E.l  EXCEPT  THAT 
NUMBER  < 1 )  MUST  BE  LESS  THAN 
DISTINCT  FROM  THOSE  SUPPLIED 


EACH  FUNCTION 
51  AND  MUST  BE 
ON  CARDS  E.l. 


CARD  E.6.B 

DO , D 1 ,D2,D3,D4 
CARD  E.6.C 
NTMPTS 


FORMAT  <  5F 1 2 . 0  > 

CURRENTLY  NOT  USED  BY  PROGRAM. 

FORMAT  < 16  > 

THE  NUMBER  OF  TIME  POINTS  OR  CARDS  REQUIRED 
TO  DEFINE  THIS  FUNCTION  ON  CARDS  E.6.D-E.6.N. 


CARDS  E.6.D  -  E.6.N  FORMAT  <4F12.0> 

<  NTMPTS  CARDS  > 

T  TIME  (SEC.)  SINCE  INITIAL  PENETRATION  OF 

BOUNDARY  PLANE.  VALUES  SHOULD  BE  IN  ASCENDING 
OROER  WITH  FIRST  VALUE  EQUAL  TO  ZERO. 


FX.FY.FZ  THE  X,Y  AND  Z  COMPONENTS  OF  FORCE  PER  UNI- 

AREA  ( LBS  .  /  IN  .  **2  )  IN  INERTIAL  REFERENCE 
DUE  TO  THE  WIND  BLAST  FORCE  AT  TIME  T.  THE 
PROGRAM  WILL  USE  LINEAR  I NTE R POL AT  I  ON  ON  T 
IF  LAST  VALUE  OF  T  IS  EXCEEDED.  TriE  LAST 
VALUES  OF  FX.FY  AND  FZ  WILL  BE  USED. 
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IF  NJNTF-0  ON  CARO  0 
NJNTF  (  FROM  CARD  D.  1 

CARD  E.7.A 

I , KTITLE 

CARO  E.7.B 

00,01 ,02,03,04 
CARO  E.7.C 
NTHETA 


NPHI 


CARDS  E.7.D  -  E.7.N 
(NPHI  SETS  OF  CARDS. 

THETAO 

F ( J  )  ,J»2  . NTHETA 


.1.  CAROS  E . 7  ARE  NOT  REQUIRED.  OTHERWISE. 

>  SETS  OF  CARDS  E.7.A  -  E.7.N  ARE  REQUIRED. 

FORMAT  (14.  4X ,  5A4 ) 

SAME  AS  CARO  E.l  EXCEPT  THAT  EACH  FUNCTION 
NUMBER  (I)  MUST  BE  LESS  THAN  51  AND  MUST  BE 
DISTINCT  FROM  THOSE  SUPPLIED  ON  CARDS  E.l 
OR  CARDS  E . 6 . A. 

FORMAT  (5F12.0) 

CURRENTLY  NOT  USED  BY  PROGRAM. 

FORMAT  (216) 

MAGNITUDE  INDICATES  THE  NUMBER  OF  COLUMNS 
IN  THE  TWO  DIMENSIONAL  INPUT  DATA  MATRIX 
TO  BE  SUPPLIED  ON  CARDS  E.7.D-E.7.N.  THE 
MINIMUM  VALUE  IS  2.  IF  POSITIVE.  THE  NTHETA 
ENTRIES  IN  EACH  ROW  WILL  BE  TABULAR  DATA  FOR 
EQUALLY  SPACED  VALUES  OF  THE  JOINT  FLEXURE 
ANGLE  (THETA)  BETWEEN  0  AND  130  DEGREES. 

IF  NEGATIVE,  THE  ENTRIES  WILL  REPRESENT  THE 
COEFFICIENTS  OF  A  ( -NTHETA- 1 >  ORDER 
POLYNOMIAL  IN  ( THETA-THETAO ) 

NUMBER  OF  ROWS  OF  MATRIX  OF  DATA  TO  BE  SUPPLIED 
ON  CARDS  E.7.D-E.7.N,  EACH  ROW  REPRESENTS 
EQUALLY  SPACED  VALUES  OF  THE  JOINT  AZIMUTH 
ANGLE  (PHD  BETWEEN  -ISO  AND  *180  DEGREES, 

BUT  DOES  NOT  INCLUDE  THE  LAST  ROW  SINCE  THE 
PROGRAM  ASSUMES  DATA  FOR  PH  I  < NPH I  +  1  > » 1 80  ARE 
THE  SAME  AS  FOR  PHI(1)  =  -130.  MINIMUM  =•  1. 

FORMAT  (5FI2.0) 

USE  EXTRA  CARDS  PER  SET  IF  I  NTHETA I  >  5.) 

THE  VALUE  OF  THE  "DEAD  BAND"  ZONE  FOR  THIS 
VALUE  OF  PHI  (DEGREES).  IF  THE  FLEXURE 
ANGLE  (THETA)  IS  LESS  THAN  THETAO,  THE 
JOINT  RESTORING  FORCE  WILL  BE  ZERO. 

FOR  NTHETA  POSITIVE,  TABULAR  VALUES  OF  THE 
JOINT  RESTORING  FORCE  FOR  FLEXURE  ANGLES 

THETA(J)  =  ( J-l  >*180/( NTHETA-1 )  DEGREES 

VALUES  OF  ZERO  SHOULD  BE  SUPPLIED  FOR 
THETA  <  THETAO. 

FOR  NTHETA  NEGATIVE,  THE  COEFFICIENTS  OF  A 
POLYNOMIAL  IN  (THETA-THETAO)  OF  ORDER  ONE 
LESS  THAN  THE  MAGNITUDE  OF  NTHETA.  F(J)  IS 
THE  COEFFICIENT  OF  ( THETA-THETAO >**( J -  1 ) 

WHERE  (THETA-THETAO)  IS  EXPRESSED  IN  RADIANS. 

F(  1  )  IS  ASSUMED  TO  BE  ZERO. 


SUBROUTINE  F INPUT  (ALLOWED  CONTACTS) 


I 


IF  NPL  IS  NONZERO  ON  CARD  D.l.  CARDS  F.l  ARE  REQUIRED.  I 


CARD  F.l. A  FORMAT  (13U)  IF  NPL>18,  USE  2  CARDS. 

MNPL<  J )  ,J»1 , NPL  FOR  PLANE  0,  THE  NUMBER  OF  SEGMENTS  FOR 

WHICH  SEGMENT-PLANE  CONTACT  IS  ALLOWED. 

NPL  IS  THE  NUM8ER  OF  PLANES  FROM  CARD  D.l. 
THE  VALUE  OF  ANY  MNPL  FOR  PLANE  0  MAY  BE 
ZERO  AND  THE  MAXIMUM  VALUE  IS  5.  HOWEVER  IF 
IT  IS  REQUIRED  TO  HAVE  MORE  THAN  5  SEGMENTS 
CONTACT  THE  SAME  PLANE,  SET  UP  TWO  OR  MORE 
IDENTICAL  PLANES  AND  PERMIT  A  MAXIMUM  OF  S 
SEGMENTS  TO  CONTACT  EACH  PLANE. 


FOR  EACH  PLANE  J,  MNPL(U)  CAROS  OF  THE  FOLLOWING  MUST  BE  SUPPLIED. 


CAROS  F.l.B  -  F.l.N  FORMAT  <9U> 

NJ  THE  PLANE  NUMBER  FOR  WHICH  CONTACT  IS 

ALLOWED.  NJ  MUST  CORRESPOND  TO  J  A30VE . 

THERE  MUST  BE  MNPL(J>  CARDS  WITH  THIS 
SAME  NO.  IF  MNPL ( J  )  -  0,  NO  NJ  -  J 
SHOULD  BE  PRESENT. 

NS( 1 )  THE  SEGMENT  NUMBER  TO  WHICH  PLANE  J  IS 

ATTACHEO.  IF  VEHICLE.  SUPPLY  NSEG+1,  IF 

GROUND.  SUPPLY  NSEG+NBAG+2 .  S 

NS( 2 )  THE  SEGMENT  NUMBER  (DETERMINED  BY  THE  CARD 

NUMBER  I  UNDER  CARD  B.2.A)  FOR  WHICH  CONTACT 
WITH  THE  NOTH  PLANE  IS  ALLOWED. 

NS<  3 )  THE  NUMBER  OF  THE  CONTACT  ELLIPSOID 

ASSOCIATED  WITH  THE  SEGMENT  NS(2). 
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NF(  1  ) 


THE  FUNCTION  NO.  FROM  CARD  E.l  TO  DEFINE  THE 
FORCE  DEFLECTION  FUNCTION  FOR  THIS  CONTACT. 

IF  NF  <  1  )  =  0 ,  A  ROLL-SLIDE  CONSTRAINT  WILL  3E 
EXERCISED  BY  THE  PROGRAM  FOR  THIS  CONTACT 
WHICH  DOES  NOT  REQUIRE  NF(2),NF<3>  OR  NF(4> 

BUT  DOES  REQUIRE  A  FRICTION  COEFFICIENT 
FUNCTION  TO  BE  DEFINED  BY  NF<5>.  ALSO,  THE 
INITIAL  POSITIONS  ON  CARDS  G.2  MUST  BE  SUCH 
THAT  THERE  IS  NO  CONTACT  AT  TIME  =  0. 

NF ( 2  >  THE  FUNCTION  NO.  FROM  CARD  F.l  TO  DEFINE  THE 

INERTIAL  SPIKE  FUNCTION  FOR  THIS  CONTACT. 

IF  ZERO  OR  NEGATIVE,  NO  INERTIAL  SPIKE  EXISTS. 
IF  NEGATIVE,  THE  MAGNITUDE  SPECIFIES  THE 
FUNCTION  NO.  FOR  F2  OF  THE  RATE  DEPENDENT 
FUNCTIONS  DESCRIBED  BELOW. 

NF ( 3  )  THE  FUNCTION  NO.  FROM  CARD  E.l  TO  DEFINE  THE 

R  (ENERGY  ABSORPTION)  FACTOR  FUNCTION.  A  VALUE 
OF  R= 1  INDICATES  THAT  ALL  ENERGY  IS  RECOVERED 
(NO  LOSS)  AND  R=0  THAT  MO  ENERGY  IS  RECOVERED. 
IF  ZERO  OR  NEGATIVE.  R=1  IS  ASSUMED  (DEFAULT). 
IF  NEGATIVE,  THE  MAGNITUDE  SPECIFIES  THE 
FUNCTION  NO.  FOR  F3  OF  THE  RATE  DEPENDENT 
FUNCTIONS  DESCRIBED  BELOW. 

NF ( 4  )  THE  FUNCTION  NO.  FROM  CARD  E . 1  TO  DEFINE  THE 

G  (PERMANENT  DEFLECTION)  FACTOR  FUNCTION. 

IF  ZERO  OR  NEGATIVE,  G=0  IS  ASSUMED  (DEFAULT). 
IF  NEGATIVE,  THE  MAGNITUDE  SPECIFIES  THE 
FUNCTION  NO.  FOR  F4  OF  THE  RATE  DEPENDENT 
FUNCTIONS  DESCRIBED  BELOW. 

NF  <  5  >  THE  FUNCTION  NO.  FROM  CARD  E.l  TO  DEFINE  THE 

FRICTION  COEFFICIENT  FUNCTION.  IF  FOR  A  ROLL- 
SLIDE  CONSTRAINT  ( NF  <  I  >  =  0  )  .  THE  VALUE  OF  D3 
ON  CARD  E . 2  FOR  THIS  FUNCTION  SHOUlD  BE  0.5. 


NOTE:  RATE  DEPENDENT  FUNCTIONS  CAN  BE  USED  INSTEAD  OF  THE  INERTIAL 
SPIKE,  R  AND  G  FACTORS  BY  DEFINING  NF(2),  NF ( 3  >  AND  NF(4)  ALL  ZERO 
OR  NEGATIVE.  THE  TOTAL  FORCE  DEFLECTION  FUNCTION  IS  COMPUTED  BY 

F(D.D')  =  F 1 ( 0  >  +  F 2 ( D  >*F3 ( D  '  >  +  F4(D'> 

WHERE  D  AND  D’  ARE  THE  DEFLECTION  ANO  RATE  OF  DEFLECTION;  AND  F1.F2, 
F3  AND  F  4  ARE  FUNCTIONS  SPECIFIED  BY  NF<  ]  )  , NF ( 2  )  ,  NF ( 3  )  AND  NF(4>. 

IF  NF ( 2  ) ,  NF  <  3  )  OR  NF ( 4  >  IS  ZERO.  THE  CORRESPONDING  FUNCTION  IS  ZERO. 
IF  D<0 ,  THE  RATE  DEPENDENT  FUNCTIONS  ARE  NOT  COMPUTED  AND  F(D,D')=0. 
THE  FUNCTIONS  SHOULD  BE  DEFINED  SUCH  THAT  F 1  ( D  > ,  F2<D),  D'*F3(D') 

AND  D  '  *F  4 ( D '  )  ARE  ALL  GREATER  THAN  OR  EQUAL  TO  ZERO.  HENCE,  F(D.D') 
MAY  BE  NEGATIVE  IF  0'  IS  NEGATIVE. 
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IF  NBLT  IS  NONZERO  ON  CARO  0.1,  CAROS  F.2  ARE  REQUIRED'. 


CARO  F.2. A 

MNBLTI J  ) , J»1 

FOR  EACH  BELT  0. 

CAROS  F.2.B  -  F. 
NO 

NS  <  1  ) 

NS (  2  ) 

NS <  3  ) 

NF<  1  ) 

NF ( I >,1*2,4 
NF(  5  ) 


FORMAT  <  3 1  4  > 

.NBLT  FOR  BELT  J,  THE  NUMBER  OF  SEGMENTS  FOR 

WHICH  SEGMENT-BELT  INTERACTION  IS  ALLOWED. 
NBLT  IS  THE  NUMBER  OF  BELTS  FROM  CARD  0.1. 
EACH  MNBLT  MAY  HAVE  A  VALUE  OF  0  OR  1  ONLY 


MNBLT(O)  CARDS  OF  THE  FOLLOWING  MUST  BE  SUPPLIED. 


2 . N  FORMAT  ( 914  > 

THE  BELT  NUMBER  TO  BE  CONTACTED, 

MUST  CORRESPOND  TO  J  ABOVE. 

THERE  MUST  BE  MNBLT(J)  CARDS 
WITH  THE  SAME  NO.  IF  MNBLT ( J  >  =  0, 

NO  NO  •  0  SHOULD  BE  PRESENT. 

THE  SEGMENT  NUMBER  TO  WHICH  BELT  NJ  IS 
ATTACHED.  IF  VEHICLE.  SUPPLY  NSEG+1,  IF 
GROUND.  SUPPLY  NSEG  +  NSAG  +  2  . 

THE  SEGMENT  NUMBER  (DETERMINED 
BY  THE  CARD  NUMBER  I  UNDER 
CARD  B.2.A)  FOR  WHICH  INTERACTION 
WITH  THE  NOTH  BELT  IS  ALLOWED. 

THE  NUMBER  OF  THE  CONTACT  ELLIPSOID 
ASSOCIATED  WITH  THE  SEGMENT  NS(2>. 

THE  FUNCTION  NUMBER  f ROM  CARD  E . 1  to  DEFINE 
THE  FORCE-DEFLECTION  FUNCTION  FOR  THIS  CONTACT. 
THE  ABSCISSA  FOR  THIS  FUNCTION  SHOULD  BE 
STRAIN  (IN/IN  )  . 

SAME  DEFINITION  AS  ON  CARD  F.I.3  A30VE . 

IF  NON-ZERO.  FULu  BELT  FRICTION  IS  ASSUMED. 

1.2. ,  FORCES  ARE  COMPUTED  FOR  EACH  HALF  OF 
THE  BELT  SEPARATELY.  iF  ZERO.  ZERO  BELT 
FRICTION  IS  ASSUMED ,  1.2. .  BELT  TENSION  IS 
IS  THE  SAME  AT  BOTH  3ELT  ANCHOR  POINTS. 


NOTE:  THE  USE  OF  RATE  DEPENDENT  FUNCTIONS  AS  DEFINED  UNDER  CARDS 

F.1.3  ARE  NOT  CURRENTLY  OPERATIONAL  FOR  BELT-SEGMENTS  CONTACTS. 


CARD  F.3.A  IS  ALWAYS  REQUIRED.  MAY  SE  BLANK  TO  SPECIFY  THAT 
NO  SEGMENT-SEGMENTS  ARE  TO  BE  COMPUTED  BY  THE  PROGRAM. 


I 

I 


CARO  F.3.A  FORMAT  (1814)  IF  NSEG>18,  USE  TWO  CAROS. 

MNSEG(0),0-1.NSEG  FOR  SEGMENT  0,  THE  NUMBER  OF  SEGMENTS  FOR  I 

WHICH  SEGMENT-SEGMENT  CONTACT  IS  ALLOWED. 

NSEG  IS  THE  NUMBER  OF  SEGMENTS  FROM  CARD 
B.l.  EACH  SEGMENT  CONTACT.  A  VERSUS  8.  MAY 
BE  INPUTTED  EITHER  WAY  EXCEPT  WHERE  AN 
INTERIOR  CONTACT  IS  DESIRED  (SEE  NS(3>  >. 

ANY  OR  ALL  VALUES  OF  MNSEG  MAY  BE  ZERO. 

THE  MAXIMUM  VALUE  FOR  EACH  MNSEG  IS  5. 

FOr  EACH  SEGMENT  0,  MNSEG(J)  CARDS  OF  THE  FOLLOWING  MUST  BE  SUPPLIED. 


CARDS  F.3.3  -  F.3.N  FORMAT  <914 > 

NO  THE  SEGMENT  NUMBER  TO  8E  CONTACTED, 

MUST  CORRESPOND  TO  0  ABOVE.  THERE  MUST 
BE  MNSEG(J)  CARDS  UITH  THIS  SAME  NO. 

IF  MNSEG ( J  )  =  0,  NO  NO  »  0  SHOULD  BE 
PRESENT. 

NSC)  THE  NUMBER  OF  THE  CONTACT  ELLIPSOID 

ASSOCIATED  WITH  SEGMENT  NJ . 

NS <  2  1  THE  SEGMENT  NUMBER  (DETERMINED 

BY  THE  CARD  NUMBER  I  UNDER 
CARD  B.2.A)  FOR  WHICH  CONTACT 
WITH  THE  NOTH  SEGMENT  IS  ALLOWED. 

N5 ( 3 )  ThE  NUMBER  OF  THE  CONTACT  ELLIPSOID 

ASSOCIATED  WITH  THE  SEGMENT  NS(2). 

I*  NEGATIVE,  AN  INTERIOR  CONTACT  WILL  8E 
ASSUMED  WITH  ELLIPSOID  NS (  1  >  INSIDE  NS<3>. 

N? (  I  >.1-1,5  SAME  DEFINITIONS  AS  ON  CARD  F.l.B  ABOVE. 

NOTE:  THE  USE  OF  RATE  DEPENDENT  FUNCTIONS  AS  DEFINED  UNDER  CARDS  I 

F.l.B  ARE  PERMISSA6LE  FOR  SEGMENT-SEGMENT  CONTACTS.  I 
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IF  NJNT  IS  NONZERO  ON  CARD  8.1.  CARD  F.4.A  IS  REQUIRED. 

SUPPLY  1GLOB-1  FOR  GLOBALGRAPH  IC  OPTION,  OTHERWISE  SUPPLY  0  OR  BLANK 


CARD  F.4.A 

IGLOBt J  >,J- 


CARDS  F . 4 . B  -  F . 
NJ 

NS <  I >  ,  1-1  .3 
NF  (  1  ) 


NF(  2  ) 


NF( I ). 1-3,5 


FORMAT  (1814)  IF  NUNTM8,  USE  TWO  CARDS. 

.NJNT  FOR  EACH  JOINT  J,  SUPPLY  1  FOR  I  GLOB ( J  )  IF 
IPIN(J)  IS  +3  OR  -3  ON  CARDS  B.3.A  -  B.3.J: 
OTHERWISE  SUPPLY  ZERO  OR  BLANK.  ONE  CARD 
F.4.J  MUST  BE  SUPPLIED  BELOW  FOR  EACH  J  FOR 
WHICH  IGLOB(J)  =1. 


4.J  FORMAT  (914) 

THE  IDENTIFICATION  NUMBER  FOR  A  GLOBALGRAP H I C 
JOINT,  MUST  CORRESPOND  TO  J  ABOVE  AND  CARDS 
MUST  BE  SUPPLIED  IN  ASCENDING  ORDER  ON  NJ . 

CURRENTLY  NOT  USED  BY  PROGRAM. 

THE  FUNCTION  NUMBER  FROM  CARD  E.l  TO  DEFINE 
THE  TORQUE-DEFLECTION  FOR  THIS  GLOBALGRAPH IC 
JOINT.  THE  ORDINATE  FOR  THIS  FUNCTION  SHOULD 
BE  TORQUE  (IN.  LB.)  AND  THE  ABSCISSA  IS  THE 
ANGULAR  DEFLECTION  (RADIANS)  INTO  THE  STOP. 

THE  FUNCTION  NUMBER  FROM  CARD  E . 1  TO  DEFINE 
THE  HERRON  FORMULAS  FOR  T  (JOINT  STOP  ANGLE 
IN  RADIANS)  AND  ITS  DERIVATIVE  TP  WITH  RES¬ 
PECT  TO  PHI  BOTH  AS  FUNCTIONS  OF  PHI  (THE 
JOINT  ANGLE  FROM  THE  REFERENCE  AXIS  IN  RAD¬ 
IANS).  NORMALLY  THEY  WILL  BE  COMPUTED  BY 

T  *  PI  +  SP*P2 
TP  =  PI  1  +  CP*P2  ♦  SP  *P  2 ' 

WHERE  P 1 , P 2  ARE  THE  5TH  DEGREE  POLYNOMIAL 
EVALUATIONS  OF  COS(PHI)  USING  THE 
TWO  POLYNOMIALS  FI  AND  F2  OBTAINED  BY 
SETTING  BOTH  D1.D2  >  0  ON  CARD  E.2; 

P 1 ' , P2 '  ARE  THEIR  DERIVATIVES  WITH 
RESPECT  TO  PHI; 

AND  CP.SP  ARE  COS(PHI)  AND  SIN(PHI). 

IF  Dl, D2  ARE  NOT  BOTH  POSITIVE,  T  AND  TP 
WILL  BE  EVALUATED  AS  FUNCTIONS  OF  PHI  IN 
RADIANS  <0  <  PHI  <  2*PI>  AS  SPECIFIED  ON 
CARDS  E.l  -  E.4  FOR  FUNCTION  NF(2). 

SAME  DEFINITIONS  AS  ON  CARD  F.l.B  ABOVE 
EXCEPT  THAT  THE  USE  OF  RATE  DEPENDENT 
FUNCTIONS  IS  NOT  PERMITTED. 
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IF  NJNT>0  (CARO  8.1)  AND  NJNTF  >0  (CARO  D.l),  CARD  F.b.A  IS  REQUIRED. 
IF  N  0  N  T  >  0  AND  NJNTF  *0 ,  THE  PROGRAM  WILL  SET  THt  JOINTF  ARRAY  TO  ZERO 
AND  CARD  F.5.A  IS  NOT  REQUIRED  (NOTE:  FOR  VERSION  12  A  BLANK  CARD 
WAS  REQUIRED). 

CARD  F.S.A  FORMAT  (18U)  USE  TWO  CARDS  IF  NO  NT  >  18. 

JOINTFf J >.0*1 ,N0NT  FOR  EACH  JOINT  (0),  THE  FUNCTION  IDENTIFIC¬ 
ATION  NUMBER  AS  SUPPLIED  ON  CARDS  E.7.A  TO 
BE  USED  BY  SUBROUTINE  VISPR  TO  COMPUTE  THE 
JOINT  RESTORING  FORCE  BY  FUNCTION  FfITERP  . 

IF  ZERO,  THE  VALUES  OF  SPRING (  1  ,  3  *  J  -  2  )  AS 
SUPPLIED  ON  CARDS  B.4.A  WILL  BE  USED  USING 
FUNCTION  E JO  I  NT . 


IF  NBAG  #  0,  NBAG  CAROS  OF  THE  FOLLOWING  MUST  Be  SUPPLIED.  SINCE 
THE  AIR  BAG  ROUTINES  DO  NOT  USE  THE  FORCE -DE F L ECT I  ON  FUNCTIONS,  THIS 
INPUT  HAS  DIFFERENT  FORMATS  THAN  THE  ABOVE  ALLOWED  CONTACTS. 


CAROS  F.6.A  -  F.S.N  FORMAT  (214,  2012) 

K  THE  AIR  BAG  NUMBER  CORRESPONDING  TO  THE 

INDEX  J  UNDER  CARDS  D.4  ABOVE.  K  MUST  BE  IN 
NUMERIC  OROER  K  =  1  TO  NBAG,  WHERE  NBAG  IS 
THE  NUMBER  OF  AIR  BAGS  DEFINED  ON  CARD  D.l. 

NK  THE  NUMBER  OF  SEGMENTS  ALLOWED 

TO  CONTACT  THE  KTH  AIR  BAG.  THE 
MAXIMUM  VALUE  IS  10.  IF  NK  =  0, 

THE  REMAINDER  OF  THE  CARD  IS  BLANK. 

MBAG ( 2 , I , K  )  ,  THE  SEGMENT  NUMBERS  (DETERMINED  BY  THE 

MBAG( 3 , I ,K > , 1*1 ,NK  CARD  NUMBER  I  UNDER  CARD  B.2.A)  S4CH 

FOLLOWED  BY  THE  NUMBER  OF  THE  ASSOCIATED 
CONTACT  ELLIPSOID  FOR  WHICH  CONTACT 
FORCES  WITH  THE  KTH  AIR  BAG  WILL  BE 
COMPUTED. 


IF  NWINDF'O  ON  CARD  D.l.  CARDS  F.7  ARE  NOT  REQUIRED  AND  THE  PROGRAM 

WILL  SET  THE  MWSEG  ARRAY  TO  ZEROS  (NOTE:  FOR  VERSION  12  A  BLANK  CARD 

F.7. A  WAS  PREVIOUSLY  REQUIRED).  OTHERWISE.  CARDS  F.7  ARE  REQUIRED. 

LARD  F.7. A  FORMAT  <18U>  USE  TWO  CARDS  IF  NS  EG  >  18. 

MWSEG (  l,J),J=l,NSEG  FOR  EACH  SEGMENT  J,  SUPPLY  ZERO  IF  NO  WIND 

FORCE  CALCULATIONS  ARE  TO  BE  PERFORMED. 
OTHERWISE.  SUPPLY  A  VALUE  OF  ONE  TO  INDICATE 
WIND  FORCES  ARE  TO  BE  PERFORMED. 

SUPPLY  CARD  F.7.8  FOR  EACH  SEGMENT  ( J  )  WHERE  MWSEG(l.J)  -  1. 

CARD  F.7.8  FORMAT  (514) 

JO  THE  SEGMENT  IDENTIFICATION  NUMBER  FROM  CAROS 

B.2.A  FOR  WHICH  WIND  FORCE  CALCULATIONS  ARE 
TO  BE  PERFORMED.  MUST  CORRESPOND  TO  0  FROM 
CARD  F.7. A  AND  BE  SUPPLIED  IN  ASCENDING  ORDER. 

MWSEG ( 2,0)  THE  NUMBER  OF  THE  CONTACT  ELLIPSOID  TO  BE 

ASSOCIATED  WITH  SEGMENT  NUMBER  JO. 

MWSEG ( 3 , J  )  THE  SEGMENT  IDENTIFICATION  NUMBER  (NSEG+l 

FOR  THE  VEHICLE,  NSEG+2  FOR  THE  GROUND) 
ASSOCIATED  WITH  PLANE  NUMBER  MWSEG  (4.J). 

MWSEG  (  4.0)  THE  PLANE  I  DE  NT  I  F  I  CAT  I  Oft  NUMBER  FROM  CARD 

D.2.A  THROUGH  WHICH  IF  SEGMENT  0  PASSES. 

WIND  FORCE  CALCULATIONS  WILL  BE  PERFORMED. 

MWSEG ( 5 . J  )  THE  FUNCTION  NUMBER  FROM  CARD  E.6.A  FOR  THE 

WIND  FORCE  FUNCTION  TO  BE  USED. 


F . 8  SUBROUTINE  HINPUT  -  CARO  INPUT  FOR  HARNESS-BELT  SYSTEMS. 


NOTE:  NHRNSS  WHICH  WAS  SUPPLIED  ON  CARD  F.8.A  FOR  VERSION  12  IS  NOW  * 

SUPPLIEO  ON  CARD  D.l.  IF  NHRNSS#0,  CARDS  F.8  MUST  BE  SUPPLIED.  * 

PREVIOUSLY  FOR  VERSION  12,  A  BLANK  CARD  F.8. A  WAS  REQUIRED  IF  NO  * 

HARNESS  BELT  SYSTEMS  WERE  DESIRED.  * 

FORMAT  (514)  * 

NUMBER  OF  INDIVIDUAL  BELTS  FOR  EACH  HARNESS  * 

NO.  I.  MAY  BE  ZERO  OR  BLANK.  MAXIMUM  VALUE  * 

OF  SUM  OF  ALL  NBLTPH  IS  20.  * 

Y  NHRNSS  SETS  OF  CARDS  F.8.B  -  F.8.D.  * 

FORMAT  (1814)  USE  TWO  CARDS  IF  NBLTPHt I >>18.  * 

THE  NUMBER  OF  REFERENCE  POINTS  INCLUDING  * 

ANCHOR  POINTS  FOR  BELT  NO.  0  OF  HARNESS  * 

NO  I.  MAY  BE  ZERO  OR  BLANK.  THE  MAXIMUM  * 

VALUE  OF  THE  SUM  OF  ALL  NPTSPB  FOR  ALL  * 

HARNESS-BELT  SYSTEMS  IS  100.  THE  MAXIMUM  S 

VALUE  OF  THE  SUM  OF  ALL  NPTSPB  FOR  ANY  ONE  S 

HARNESS  BELT  SYSTEM  IS  50.  THE  MAXIMUM  VALUE  S 

OF  ANY  INDIVIDUAL  NPTSPB  IS  25.  S 

* 

EACH  CARD  F.8.B  IS  FOLLOWED  BY  NBLTPH(I)  SETS  OF  CARDS  F.8.C  -  F.3.D.  * 

Jr 

CARD  F.8.C  FORMAT  (514,  FI  2.0) 

N.-(L),L»1.S  THE  FUNCTION  NUMBERS  FROM  CARDS  E.l  TO  DEFINE  * 

THE  STRESS-STRAIN  OF  BELT  NO.  0.  THE  DEFINITION  * 
OF  THESE  FUNCTIONS  ARE  IDENTICAL  TO  THOSE  OF 
NF  <  1  )  TO  NF ( 5  >  ON  CARDS  F.2.B.  EXCEPT  THAT  THE 
USE  OF  RATE  DEPENDENT  FUNCTIONS  IS  PERMITTED. 


CARD  F.3.A 

N3LTPH<  I  )  , 

I»1 .NHRNSS 

CARD  F.8. A  IS  FOLLOWED  B 

CARD  F.8.B 

NPTSPB! 0  ), 

J  =  1 , NBLTPH!  I  ) 


X  u  0  N  G ( D  )  THE  INITIAL  SLACK  (IN)  OF  BELT  NO.  J.  A  NEG¬ 

ATIVE  VALUE  CAN  BE  SPECIFIED  TO  INDICATE  A 
PRE-TIGHTENED  BELT.  THE  PROGRAM  WILL  ADD  THIS 
TO  THE  INITIAL  GEOMETRIC  LtNSTH  TO  OBTAIN  THE 
INITIAL  BELT  LENGTH  AND  DISTRIBUTE  THE  SLACK 
PROPORTIONATELY  BETWEEN  THE  POINTS. 


W  M  W  M  W 


EACH  CARO 
TO  SPECIFY 

CARO  F.8.D 

KS 


KE 

NP  D 


NDR 


NF<L>. 


F.8.C  IS  FOLLOWED  BY  NPTSPB(J)  PAIRS  OF  F.8.D1  AND  02  CARDS 
THE  REFERENCE  POINTS  < K)  FOR  BELT  <  J  >  OF  HARNESS  <I>. 

1  FORMAT  <9U.  3F12.0) 

INTEGER  OF  THE  FORM  1 00«KTP  +  KSEG ,  V/HERE  KSEG 
IS  THE  IDENTIFICATION  NUMBER  OF  THE  SEGMENT 
ASSOCIATED  WITH  REFERENCE  POINT  <K>,  AMD 
KTP  IS  A  TIE-POINT  IDENTIFICATION  NUMBER 
WHICH  MAY  BE  BLANK  OR  ZERO.  ALL  POINTS  (K> 

OF  HARNESS  (I)  THAT  HAVE  THE  SAME  NON-ZERO 
VALUE  FOR  KTP  (THERE  SHOULD  3£  ONLY  ONE  FOR 
EACH  BELT  <J>>  WILL  BE  CONNECTED  AND  SHOULD 
HAVE  IDENTICAL  VALUES  FOR  ALL  OTHER  INPUT. 

THE  IDENTIFICATION  NUMBER  OF  THE  CONTACT 
ELLIPSOID  ASSOCIATED  WITH  REFERENCE  POINT 
NO.  K.  IF  NO  ELLIPSOID  IS  SPECIFIED  <!<E»0>, 

THE  PROGRAM  WILL  ASSUME  A  UNIT  SPHERE. 

INDICATOR  FOR  THE  PREFERRED  DIRECTION  OPTION. 

IF  A  NON-ZERO  INTEGER  IS  GIVEN.  A  NON-ZERO 
VECTOR  MUST  BE  SPECIFIED  FOR  3AR( L . K > , L -  1 0 . 1 2 
ON  CARD  F.B.D2.  THE  REFERENCE  POINT  WILL  BE 
ALLOWED  TO  MOVE  ALONG  THE  SURFACE  IN  A  DIRECTION 
WHICH  IS  PERPENDICULAR  BOTH  TO  THIS  VECTOR  AND 
TO  THE  NORMAL  OF  THE  SURFACE  SUBJECT  TO  THE 
CONSTRAINT  IMPOSED  BY  02  OF  FUNCTION  NF<5> 

BELOW.  IF  NPD-0.  THE  NOMINAL  BELT  LINE  IS  USED 
IN  PLACE  OF  THIS  VECTOR.  NP D  MUST  BE  NONZERO 
IF  POINT  NO.  K  IS  A  TIE  PONT. 

INDICATOR  FOR  THE  DELTA  R  OPTION.  IF  NDR  *  0. 
BELT  <0)  WILL  BE  ALLOWED  TO  SLIP  AT  REFERENCE 
POINT  <  K  > .  IF  NDR  9  0.  3ELT  (J)  WILL  NOT  SLIP 
BUT  REFERENCE  POINT  (K)  WILL  BE  MOVED  ALONG  THE 
NOMINAL  BELT  LINE.  IN  BOTH  CASES  THE  SLIPPAGE 
OR  MOTION  IS  SUBJECT  TO  THE  CONSTRAINT  IMPOSED 
BY  THE  COEFFICIENT  OF  FRICTION  GIVEN  BY  Di  OF 
FUNCTION  NF ( 5  >  BELOW.  NDR  MUST  BE  NON-ZERO 
FOR  END  REFERENCE  POINTS  OF  THE  BELT. 

L-1,4  THE  FUNCTION  NUMBERS  FROM  CARDS  E.l  TO  DEFINE 

THE  FORCE  DEFLECTION  FUNCTION  BETWEEN  BELT  <J> 
AND  REFERENCE  POINT  <K>.  IF  N F <  1  )  =»  0.  THE 
SURFACE  IS  TREATED  AS  RIGID  AND  NO  PERTURBATION 
OF  THE  REFERENCE  POINT  NORMAL  TO  THE  SURFACE 
IS  ALLOWED.  THE  USE  OF  RATE  DEPENDENT  FUNCT¬ 
IONS  AS  DEFINED  UNDER  CARDS  F.l.B  IS  PERMITTED. 
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ARD 


N  F  !  5  )  THE  FUNCTION  NUMBER  FROM  CARD  E.l  TO  DEFINE  $ 

THE  FRICTION  COEFFICIENTS  FOR  BELT  <J>  AT  S 

REFERENCE  POINT  !K).  TWO  CONSTANT  VALUES  ARE  S 

TO  BE  DEFINED  ON  CARD  E.2  OF  THIS  FUNCTION  S 

BY  SETTING  DO  =  D1  =  D3  =  0.  D2  IS  THE  COEF-  S 

FICIENT  OF  FRICTION  PERPENDICULAR  TO  THE  S 

NOMINAL  BELT  LINE  ALONG  THE  SURFACE  AND  D4  S 

IS  THE  COEFFICIENT  OF  FRICTION  ALONG  THE  NOM-  $ 
INAL  BELT  LINE.  IF  NF ( 5  >  =  0,  INFINITE  FRICTION  S 
IS  ASSUMED.  S 


BARI L , K > , L« 1 . C  THE  X.Y  AND  Z  COORDINATES  (IN)  OF  REFERENCE 

POINT  <K)  OF  BELT  (U>  IN  THE  LOCAL  COORDINATE  * 

SYSTEM  OF  SEGMENT  NO.  KS.  IF  AN  ELLIPSOID  IS  * 

SPECIFIED  (  KEiTO  >  .  THE  POINT  IS  REFERRED  TO  THE  * 
CENTER  OF  THE  ELLIPSOID  AND  THE  SUPPLIED  VALUES  * 
WILL  BE  ADJUSTED  BY  THE  PROGRAM  TO  LIE  ON  THE  * 
ELLIPSOID  SURFACE.  IF  KE  =  0 .  A  NON-ZERO  VECTOR  * 
MUST  BE  SPECIFIED.  THIS  VECTOR  WILL  BE  USED  TO 
TO  COMPUTE  THE  NORMAL  IN  THE  DEFINITION  OF  ITS  * 
LOCAL  COORDINATE  SYSTEM  AND  TO  RESOLVE  THE  BELT  * 
FORCES.  THE  PROGRAM  WILL  ASSUME  THAT  BELT  (0)  * 

WILL  RUN  THROUGH  THE  POINTS  IN  THE  SPECIFIED 
ORDER.  HOWEVER.  IF  THE  FORCES  ARE  SUCH  AS  TO  * 

PULL  THE  3ELT  AWAY  FROM  THE  SURFACE.  THIS 
POINT  WILL  BE  IGNORED  IF  IT  IS  NOT  AN  END  OR  * 

ATTACHMENT  POINT. 


F.9.0Z  FORMAT  (6F12.0)  S 

BARU.lO.L-7, 9  THE  X.Y  AND  Z  COORDINATES  (IN)  OF  THE  OFFSET  S 

IN  THE  LOCAL  COORDINATE  SYSTEM  OF  SEGMENT  KS .  S 
THIS  VECTOR  IS  ADDED  TO  ThE  REFERENCE  VECTOR  S 

DEFINED  ABOVE  ( L  =  1 . 3  >  TO  DETERMINE  THE  LOCATION  Z 
OF  THE  REFERENCE  POINT  ( K )  RELATIVE  TO  THE  S 

C.G.  OF  SEGMENT  KS.  S 


BAR(L.K),L»10,12  THE  X.Y  AND  Z  COORDINATES  OF  A  VECTOR  IN  THE 
LOCAL  COORDINATE  SYSTEM  OF  SEGMENT  KS.  THIS 
VECTOR  IS  USED  FOR  THE  PREFERRED  DIRECTION 
(SEE  NPD  ABOVE).  THIS  VECTOR  MUST  NOT  BE 
PARALLEL  TO  THE  NORMAL  COMPUTED  FROM  BAR(L,I<>, 
FOR  L-l  , 3  ABOVE . 
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G  . 


SUBROUTINE  IN1TAL 


CARO  G.2.A  FORMAT  (3F10.0,  5U> 

ZPLTl 1 > .  I»1  ,3  THE  X ,  Y,  AND  Z  PLOT  COORDINATES 

(FOR  SUBROUTINE  PRIPLT)  OF  THE 
ORIGIN  OF  THE  VEHICLE  REFERENCE 
SYSTEM .  0  <  X  <  61 

0  <  Y  <  61 

0  <  Z  <  121 

11  A  VALUE  OF  15  IS  REQUIRED  TO  CALL  SUBROUTINE 

EQUILB  AND  PROCESS  CARDS  G.4,  G.5  AND  G.6. 

J1  IF  NON-ZERO.  CARD  G.l.B  IS  REQUIRED  TO  DEFINE 

SCALING  INFORMATION  FOR  THE  PRINTER  PLOTS 

12. J2  CURRENTLY  NOT  USED  BY  THE  PROGRAM. 

13  IF  ZERO,  SEGMENT  AND  ANGULAR  VELOCITIES  A^E 

NOT  SUPPLIED  ON  THE  FOLLOWING  CARDS  BUT  ARE 
SET  EQUAL  TO  THE  INITIAL  VEHICLE  VELOCITY. 

IF  13  #  0,  SEGLV  AND  UMGDEG  MUST  BE  SUPPLIED. 

IF  01  IS  ZERO  OR  BLANK  ON  CARD  G.l.A,  THE  FOLLOWING  CARD  G.l.B  SHOULD 
NOT  BE  SUPPLIED  ANO  DEFAULT  VALUES  OF  10.0.  6.0  AND  1.0  WILL  BE  USED 
FOR  THE  SPLT  ARRAY. 


CARD  G.l.B 


FORMAT  (3F10.0 ) 


SPLT(l)  THE  NUMBER  OF  HORIZONTAL  PRINT  POSITIONS  PER 

UNIT  LENGTH  FOR  THE  OUTPUT  UNIT  THAT  WILL 
PRINT  THE  PRINTED  PLOTS  PRODUCED  BY  SUBROUTINE 
PRIPLT  (NORMAL  VALUE  IS  10.0  FOR  10  SPACES 
OR  COLUMNS  PER  INCH  I  . 

SPLT( 2  )  THE  NUMBER  OF  VERTICAL  PRINT  LINES  PER  UNIT 

LENGTH  (NORMAL  VALUES  ARE  5.0  OR  8.0  FOR  6 
OR  8  LINES  PER  INCH).  THE  PROGRAM  USES  ONLY 
THE  RATIO  OF  SPLT(l)  TO  SPLT(2). 


SP LT( 3  1  SCALE  FACTOR  THAT  REPRESENTS  THE  DISTANCE 

(INCHES  OR  LENGTH  UNIT  ON  CARD  A. 3)  BETWEEN 
VERTICAL  PRINT  LINES  FOR  THE  PRINTER  PLOTS. 
NOTE:  THE  PRINTER  PLOT  WAS  ORIGINALLY  DESIGNED 
FOR  120X60  UNITS  (INCHES)  ALONG  THE  Z  AND 
X  OR  Y  DIRECTIONS  WHICH  MAY  NOT  BE  SATISFACTORY 
FOR  CERTAIN  SITUATIONS  (E.G.,  METRIC  UNITS), 


ONE  G.2  CARO  MUST  BE  SUPPLIED  FOR  EACH  REFERENCE  SEGMENT  (I.E., 
SEGMENT  NO.  1  AND  FOR  EACH  SEGMENT  J  +  l  WHERE  JNT(J)  =  0  ON  CARDS 
S.3)  IN  ASCENDING  SEGMENT  NUMBER  SEQUENCE. 


CARDS  G.2. A  -  G.2.M  FORMAT  <  bF  X  0 . 0  > 

SEGLPt I ,J >. I-l .3  THE  INITIAL  X,  Y,  AND  Z  COORDINATES  OF  THE 

JTH  BOOY  SEGMENT  IN  INERTIAL  REFERENCE  (IN). 

SEGLV< I. O), 1=1, 3  THE  INITIAL  X.  Y.  AND  Z  COMPONENTS  OF  VELOCITY 
OF  THE  JTH  BODY  SEGMENT  IN  INERTIAL  REFER¬ 
ENCE  (IN/SEC).  THESE  FIELDS  MAY  BE  LEFT  BLANK 
IF  13  *  0  ON  CARD  G.l  IN  WHICH  CASE  THE 
INITIAL  VELOCITY  OF  THE  VEHICLE  WILL  BE  USCD. 


CARDS  G. 3.A1-G. 3.N1  FORMAT  (6F10.0,  413) 

( NSEG  CARDS  OR  SETS  OF  G . 3 . J 1 , G . 3 . J 2  CARDS) 

YPR(  I  ,J  ), 1  =  1 ,3  THE  INITIAL  ROTATION  ANGLES  (DEGREES)  OF  THE 

JTH  SEGMENT  ABOUT  THE  LOCAL  Z.  Y  AND  X  AXES 
OF  THE  SEGMENT  GIVEN  BY  ID(4.0>  IN  THE  ORDER 
SPECIFIED  BY  I D ( I , J  )  .  I  *  1 , 3  BELOW. 

WMGDEG (  I , J ) , 1 1 1 , 3  THE  INITIAL  COMPONENTS  OF  ANGULAR  VELOCITY 
ABOUT  THE  LOCAL  X.Y  AND  Z  AXES  OF  THE  JTH 
BODY  SEGMENT  (DEG/SEC).  IF  13  =  0  ON  CARD 
G.l,  THE  INITIAL  ANGULAR  VELOCITY  OF  THE 
VEHICLE  WILL  BE  CONVERTED  TO  THE  SEGMENT 
REFERENCE  AND  WILL  BE  USED. 

I0< I , J  )  , I  =  1  ,3  INDICATORS  USED  TO  SPECIFY  THE  ORDER  OF  THE 

AXES  OF  THE  ROTATIONS  GIVEN  IN  YPR  ABOVE. 

(SEE  COMPLETE  DEFINITION  UNDER  CARDS  B.3.A2.) 
ZEROS  OR  BLANKS  WILL  DEFAULT  TO  1,2  AND  3  TO 
INDICATE  THAT  THE  STANDARD  SEQUENCE  OF  YAW. 
PITCH  AND  ROLL  IS  REVERSED  (AS  REQUIRED  3Y 
VERSIONS  PREVIOUS  TO  ISA  OF  THE  PROGRAM). 

VALUES  OF  3,2,1  INDICATES  THAT  THE  STANDARD 
YAW,  PITCH  AND  ROLL  SEQUENCE  BE  USED. 

VALUES  OF  3.  1.-3  INDICATES  THAT  PRECESSION. 
NOTATION  AND  SPIN  FOR  EULER  JOINTS  BE  USED. 

A  NEGATIVE  VALUE  FOR  ID(l.J)  INDICATES  THAT 
PROJECTIONS  OR  PROJECTION  ANGLES  OF  THE 
PRINCIPAL  AXES  OF  SEGMENT  J  '-/ILL  BE  USED  AND 
THAT  A  CARD  G.3.J2  WILL  FOLLOW  THIS  CARD. 
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ID<  4, J  > 


THE  SEGMENT  NUMBER  TO  WHICH  THE  ROTATIONS 
GIVEN  BY  YPR  OR  BY  ANGLES  ON  CARD  G  .  3  .  J  2 
ARE  RESPECT  TO.  A  VALUE  OF  ZERO  OR  BLANC  WILL 
DEFAULT  TO  THE  GROUND  ( NSEG- NBAG *1  )  OR  INERTIAL 
REFERENCE.  THE  VEHICLE  MAY  BE  SPECIFIED  BY 
SUPPLYING  NSEG+  1  .  OTHERWISE  THE  NO.  OF  THE 
SEGMENT  MUST  BE  LESS  THAN  J.  A  NEGATIVE  NUMBER 
< -  I J NT<  J -  1  )  I  ,  AS  SPECIFIED  ON  CARD  B.3.A1) 

MAY  BE  USED  TO  DEFINE  THE  ROTATION  ANGLES 
WITH  RESPECT  TO  THE  JOINT  PRINCIPAL  AXES  AS 
SPECIFIED  ON  CARD  8.3.A2. 

NOTE:  THE  VALUES  OF  YPR  AND  ID  ARE  USED  TO  COMPUTE  A  DIRECTION  COSINE 
MATRIX  R.  THE  DIRECTION  COSINE  MATRIX  D <  J  )  OF  SEGMENT  J  IS  DETERMINED 
BY  THE  VALUE  OF  K  =>  I D  (  4 ,  J  >  AS  FOLLOWS: 

K  *  0:  D  ( J  )  =*  R(  J  )  (  K»0  OR  EQUAL  TO  NGRND  > 

K  >  0:  D ( J  )  =  R(  J )D( K  )  <  K<J  OR  EQUAL  TO  NVEH  > 

K  <  0:  D(J)  =  H'(J)R(J)H(K)D!K)  (  K  =  -  I  0  NT ( J -  1  >  I  ) 

THERE  ARE  NO  RESTRICTIONS  ON  A  BALL  OR  EULER  JOINT.  AN  EULER  JOINT 

CAM  BE  SET  TO  AN  INITIAL  PRECE SS I  ON < P  )  ,  NUTATION! N  >  AND  SPIN(S)  BY 
SPECIFYING  YPR  =  P,N,S  AND  ID  =  3 , 1  , -3  ,  -  I J NT ( J -  1  )  I  .  TO  PRESERVE  THE 
AXES  OF  A  PIN  JOINT,  CARE  MUST  BE  TAKEN  THAT  THE  RELATIVE  ORIENTATION 
OF  SEGMENTS  J  AND  JNT(J-l)  REPRESENTS  A  ROTATION  ABOUT  THE  PIN  AXIS 
ONLY.  (THE  PIN  AXIS  IS  ALWAYS  THE  Y  AXIS  OF  THE  JOINT  PRINCIPAL  AXES 
AS  SPECIFIED  ON  CARO  B.3.A2.)  THIS  CAN  BE  ASSURED  BY  SUPPLYING  YPR  = 
0,P,0  AND  ID  »  0,0,0, -I0NTI0-1 >1  WHERE  P  IS  THE  PITCH  OF  SEGMENT  J 
WITH  RESPECT  TO  THE  CENTER  OF  SVMMETRY  (CARD  B.3.A2)  OF  JOINT  J-l. 

FOR  THE  CASE  WHERE  THE  Y  AXES  OF  SEGMENTS  J  AND  JNT(J-l)  ARE  PARALLEL 
TO  THE  PIN  AXIS,  THE  PIN  AXIS  CAN  BE  PRESERVED  BY  SUPPLYING  VALUES 
OF  YPR  *  0,P,0  AND  ID  *  0 . 0 , 0 , ♦ I JNT( J-l  >  I  WHERE  P  IS  THE  PITCH  OF 
SEGMENT  J  WITH  RESPECT  TO  SEGMENT  JNT(J-l). 


r 

i 


A  CARD  G . 3 . J 2  MUST  FOLLOW  ANY  CARD  G.3.J1  ON  WHICH  ID(1,0>  IS  NEGATIVE. 

CARDS  G . 3  .  A2-G . 3  .  N2  FORMAT  (6F10.0,  413) 

A1.A2.A3  SPECIFIES  THE  PROJECTION  OF  THE  PRIMARY  AXIS 

GIVEN  BY  IK  BELOW.  IF  II  IS  NEGATIVE,  VALUES 
WILL  BE  THE  X.Y  AND  Z  COMPONENTS  (IN)  IN  THE 
PROJECTION  REFERENCE  SYSTEM  OF  A  VECTOR 
ALONG  THE  POSITIVE  IK  AXIS  OF  SEGMENT  NO.  J. 

IF  II  IS  POSITIVE,  AI.A2  (A3  NOT  USED)  ARE  THE 
PROJECTION  ANGLES  (DEG)  OF  THE  POSITIVE  IK  AXIS 
OF  SEGMENT  NUMBER  J  IN  TWO  OF  THE  PROJECTION 
REFERENCE  PLANES  SPECIFIED  BY  THE  VALUE  OF  II. 

B1.B2.B3  SPECIFIES  THE  PROJECTION  OF  A  SECONDARY  AXIS 

GIVEN  8Y  JK  BELOW.  DEFINITION  IS  IDENTICAL  TO 
AI.A2.A3  ABOVE  BUT  USES  JJ  AND  JK  INSTEAD 
OF  II  AND  IK. 

II  IF  II  IS  NEGATIVE.  THE  COMPONENTS  OF  A  VECTOR 

ALONG  THE  POSITIVE  IK  AXIS  WILL  BE  GIVEN  BY  Al. 
A2.A3.  IF  II  IS  POSITIVE,  A  VALUE  OF  1.2  OR  3 
IS  USED  TO  INDICATE  THAT  THE  X.Y  OR  Z  AXIS  IS 
THE  COMMON  AXIS  OF  THE  TWO  PROJECTION  REFERENCE 
PLANES  USED  TO  SPECIFY  THE  TWO  PROJECTION 
ANGLES  AS  FOLLOWS: 

IF  11=1,  Al  IN  Z-X  PLANE,  A2  IN  X-Y  PLANE. 

IF  11=2,  Al  IN  X-Y  PLANE,  A2  IN  Y-7.  PLANE. 

IF  11=3,  A!  IN  Y-Z  PLANE.  A2  IN  Z-X  PLANE. 

IN  THE  X-Y  PLANE,  THE  ANGLE  IS  MEASURED  FROM 
THE  X-AXIS,  POSITIVE  TOWARD  THE  Y  AXIS. 

IN  THE  Y-Z  PLANE,  THE  ANGLE  IS  MEASURED  FROM 
THE  Y-AXIS,  POSITIVE  TOWARD  THE  Z  AXIS. 

IN  THE  Z-X  PLANE,  THE  ANGLE  IS  MEASURED  FROM 
THE  Z  AXIS,  POSITIVE  TOWARD  THE  X  AXIS. 

RESTRICTION:  SIN(Al)  *  COS(A2)  CANNOT  BE  ZERO. 

IK  A  VALUE  OF  1.2  OR  3  TO  SPECIFY  THAT  THE  X.Y 

OR  Z  AXIS  OF  SEGMENT  NUMBER  J  IS  THE  PRIMARY 
AXIS  TO  BE  PROJECTED. 

UJ.UK  SAME  DEFINITION  AS  FOR  II, IK  ABOVE  CUT  FOR  A 

SECONDARY  AXIS  OF  SEGMENT  NUM3ER  J.  THE  VALUE 
OF  J K  MUST  BE  DIFFERENT  THAN  THAT  OF  IK. 


SUBROUTINE  EQUIL3 


CARDS  G.4, 
CARD  G.4 
NVAR 

NCON 

CARDS  G.5.A 
(  NVAR 

NTV ( J  ) 

NIK  J  ) 

NSG< J  ) 

GX<  J  > 


XDE V( 0  ) 


G .  5  AND  G.6  ARE  REQUIRED  IF  II  =  15  CN  CARD  G.l. 

FORMAT  (214) 

NO.  OF  INDEPENDENT  VARIABLES  SUPPLIED  ON  CARDS 
G.2  AND  G.3  THAT  ARE  TO  BE  ADJUSTED  SUCH  THAT 
CONTACT  NORMAL  FORCES  ARE  EQUAL  TO  EITHER  GX 
SUPPLIED  ON  CARDS  G.5  OR  CONSTRAINT  NORMAL 
FORCES  CONTROLLED  BV  CARDS  G.6  (MAX  *  10). 

NO.  OF  CONSTRAINTS  TO  BE  IMPOSED  TO  COMPUTE 
THOSE  CONSTRAINT  FORCES  WHICH  WILL  BE  SATISFIED 
BY  INITIAL  CONTACT  FORCES.  IF  ZERO,  THE  SUPPLIED 
VALUES  OF  GX  WILL  BE  USED.  (MAX  =■  5) 


-  G.5.N  FORMAT  (314,  2F8.0,  814) 

CARDS  ) 


INDICATES  TYPE  OF  JTH  INDEPENDENT  VARIABLE 

1  -  SEGLP  FROM  CARDS  G.2 

2  -  YPR  FROM  CARDS  G.3 

A  VALUE  OF  1,2  OR  3  TO  INDICATE  THE  X.Y  OR  Z 
COORDINATE  OF  SEGLP  IF  NTV(J>»1,  OR  YAW,  PITCH 
OR  ROLL  OF  YPR  IF  NTV(J)=2. 

THE  SEGMENT  NUMBER  (AS  SPECIFIED  BY  INDEX  I 
OF  CARDS  8 . 2  >  FOR  THE  JTH  INDEPENDENT  VARIABLE. 

THE  MAGNITUDE  OF  THE  CONTACT  NORMAL  FORCE  FOR 
THE  JTH  INDEPENDENT  VARIABLE  (LBS.).  IF  THIS 
CONTACT  IS  TO  BE  CONTROLLED  BY  A  CONSTRAINT  ON 
CARDS  G.6  (I.E..  U=INDGX(I)>,  THE  SUPPLIED 
VALUE  OF  GX  WILL  BE  THE  INITIAL  VALUE  FOR  THE 
ITERATION  OF  THE  CONTACT  NORMAL  FORCE  TO  EQUAL 
THE  CONSTRAINT  NORMAL  FORCE-,  OTHERWISE.  THE  UTH 
INDEPENDENT  VARIABLE  WILL  BE  ADJUSTED  SUCH  THAT 
THE  CONTACT  NORMAL  FORCE  WILL  BE  EQUAL  TO  GX. 

THE  MAXIMUM  ALLOWABLE  DEVIATION  FROM  THE  INITIAL 
POSITIONS  SPECIFIED  ON  CARDS  G.2  AND  G.3  DURING 
THE  ITERATION  OF  THE  JTH  INDEPENDENT  VARIABLE 
FOR  THE  CONTACT  NORMAL  FORCE  TO  EQUAL  GX.  IF 
EXCEEDED,  THE  PROGRAM  WILL  TERMINATE  WITH  AN 
ERROR  MESSAGE.  IF  XDEV  =  0,  THE  TESTS  WILL 
NOT  BE  PERFORMED. 


JPL  (  J  ) 


JSG  (  J  ) 


NAVI J  ) 


THE  PLANE  NUMBER  CORRESPONDING  TO  NO  ON  CARDS  * 
F.I.B  -  F.l.N  FOR  THE  CONTACT  WHOSE  NORMAL  FORCE  * 
IS  TO  BE  CONTROLLED  BV  THE  JTH  VARIABLE.  * 

* 

THE  SEGMENT  IDENTIFICATION  NUMBER  I  AS  SPECIFIED  * 
BV  INDEX  I  OF  CARDS  B.2)  INVOLVED  IN  THE  CON-  * 

TACT  WITH  PLANE  NO.  OPLIO).  NOTE:  A  CONTACT  * 

FOR  THIS  PLANE  AND  SEGMENT  MUST  HAVE  BEEN  SET  * 

UP  ON  CARDS  F.I.B  -  F.l.N.  * 

* 

NO.  OF  VARIABLES  ASSOCIATED  WITH  THE  JTH  INDEP-  * 
ENDENT  VARIABLE.  ( MAX*  5,  MAY  BE  2ERO)  * 


KSG ( I , J  > , I  *  1 , NAV  THE  SEGMENT  NUMBERS  (DEFINITION  SAME  AS  FOR 
NSGIJ))  FOR  THE  NAVIJ)  VARIABLES  ASSOCIATED 
WITH  THE  OTH  INDEPENT  VARIABLE.  ANY  CHANGE 
MADE  TO  THE  OTH  INDEPENDENT  VARIABLE  TO  ACHIEVE 
INITIAL  EQUILIBRIUM  WILL  ALSO  BE  MADE  TO  THE 
CORRESPONDING  VARIABLES  FOR  THESE  SEGMENTS  SUCH 
THAT  THE  INITIAL  RELATIVE  ORIENTATION  WILL  BE 
MAINTAINED  AS  SPECIFIED  ON  CARDS  G.2  AND  G.3. 


CARDS  G.6.A  -  G.6.M 
(NCOM  CARDS) 

I  PL  <  I ; . I  SGI  I  ) 


LTYPEI  I  ) 


INDGXI  I  ) 


FORMAT  (414) 


THE  PLANE  AND  SEGMENT  NUMBERS  (DEFINITION  SAME  * 
AS  FOR  OPL(J)  AND  OSG(O)  ABOVE)  FOR  THE  ITH  * 

CONSTRAINT  TO  BE  IMPOSED  FOR  INITIAL  EQUILI-  * 

BRIUM  DURING  THE  CONTACT  NORMAL  FORCE  TO  CON-  * 

STRAINT  NORMAL  FORCE  ITERATION. 

* 

INDICATES  THE  TYPE  OF  THE  ITH  CONSTRAINT  * 

3  -  ROLL  CONSTRAINT 

4  -  SLIDE  CONSTRAINT  * 

* 

THE  INDEX  0  (FROM  1  TO  NVAR )  FROM  CARD  G.5  * 

FOR  WHOSE  CONTACT  NORMAL  FORCE  WILL  BE  ITERATED  * 

TO  BE  EQUAL  TO  THE  ITH  CONSTRAINT  NORMAL  FORCE.  * 
MAY  BE  ZERO.  BUT  IF  INDGX(I)  =  0,  THEN  IPL(I) 

AND  ISG(I)  MUST  BE  EQUAL  TO  JPL(O)  AND  JSG(J).  * 


NOTE:  SUBROUTINE  EQUILB  WILL  ADJUST  THE  INITIAL  POSITION  PARAMETERS  * 
SUPPLIED  ON  CARDS  G.2  AND  G.3.  IF  THE  CONSTRAINTS  TEMPORARILY  IMPOSED  BY  « 
CARDS  G . 6  PROPERLY  CONSTRAIN  ALL  OF  THE  SEGMENTS.  ZERO  ACCELERATIONS  WILL  * 
BE  OBTAINED  WHILE  THE  CONSTRAINTS  ARE  ON.  THE  ITERATION  WILL  PRODUCE  NORMAL  * 
ANO  TANGENTIAL  CONTACT  FORCES  THAT  WILL  RESULT  IN  SMALL  (<  0.02  G)  INITIAL  * 
LINEAR  ACCELERATIONS  FOR  ALL  OF  THE  BO0Y  SEGMENTS.  FOR  THE  SEATED  "STANDARD"  * 
FIFTEEN  SEGMENT  OCCUPANT.  THIS  CAN  BE  ACHIEVED  AS  FOLLOWS:  * 

* 

A.  LOCK  JOINT  P,  W,  NP ,  HP,  RA  AND  LA  BY  SETTING  IPIN  «  -2  ON  CARDS  3.3.  * 
IF  THE  MAXIMUM  TORQUE  FOR  A  LOCKED  JOINT  (T1  FOR  V I  SC ( 4 . 3  * J -2  )  ON  CARDS  B.5)  * 
IS  ZERO.  THEN  SUBROUTINE  EQUILB  WILL  SET  T1  FOR  THESE  LOCKED  JOINTS  TO  1  . 5  * 
TIMES  THE  MAGNITUDE  OF  THE  JOINT  TORQUE  FINALLY  PRODUCED  AT  TIME  ZEP.O. 
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8.  CONSTRAIN  THE  ARMS  BY  EITHER  SETTING  UP  FIXED  POINT  CONSTRAINTS  (TYPE-1) 
'•"'R  THE  RLA  AND  t L A  WITH  THE  VEHICLE  ON  CARDS  D.6,  OR  LOCK  THE  JOINTS  RS,  RE. 
Li  AND  LE  AS  IN  STEP  A  A80VE .  IF  THE  CONSTRAINTS  ARE  IMPOSED  ON  CARDS  D.6, 
SUBROUTINE  EQUILB  WILL  ADJUST  THE  POINT  ON  THE  VEHICLE  ( RK2  ON  CARDS  D.6) 

FOR  ANY  TYPE  1  CONSTRAINT  INVOLVING  THE  VEHICLE  SO  THAT  IT  WILL  COINCIDE 
WITH  THE  SPECIFIED  POINT  ON  THE  BOOY  SEGMENT  (RKl  ON  CARDS  D.S)  AS  ADJUST¬ 
MENTS  ARE  MADE  TO  THE  INITIAL  POSITION  PARAMETERS. 

C.  SET  UP  ALLOWED  CONTACTS  AND  ASSOCIATED  FORCE  DEFLECTION  FUNCTIONS  ON 
CARDS  F.l  FOR  THE  SEAT  CUSHION  PLANE  WITH  THE  LT,  RUL  AND  LUL  SECMENTS ,  THE 
SEAT  BACK  PLANE  WITH  THE  LT,  CT  AND  UT  SEGMENTS.  AND  THE  FLOORBOARD  PLANE 
WITH  THE  RF  AND  LF  SEGMENTS. 


D.  SET  UP  INITIAL  POSITION  PARAMETERS  ON  CARDS  G.2  AND  G.3  THAT  ARE  JUST 
"SHORT  OF"  OR  CLOSE  TO  THE  FINAL  PENETRATION  DISTANCES  FOR  THE  SEGMENTS 
WITH  THE  CONTACT  PLANES. 


E  . 

SET 

NVAR 

=  S  AND  NCON 

-  4  ON 

CARD  G.4. 

F  . 

SUPPLY  THE  FOLLOWING 

INPUT  PARAMETERS  ON  CARDS  G. 

ii  ' 

J 

NTV 

Nil 

NSG 

GX 

XDE  V 

JPL 

JSG 

NAV 

KSG 

1 

1 

3 

(  LT) 

90.0 

1  .0 

<  SEAT  CUSHION  > 

(LT) 

0 

2 

1 

1 

(  LT) 

S.O 

1.0 

(SEAT  BACK) 

(LT) 

0 

3 

2 

2 

(UT) 

10.0 

S.O 

(SEAT  BACK) 

(  UT  > 

4 

(  LT ) , ( CT  !  , ( N  ) ,  ( H 

4 

2 

2 

(  RUL  ) 

25.0 

10.0 

<  SEAT  CUSHION  > 

(  RUL  > 

1 

(  LUL  > 

5 

2 

2 

(RLL) 

10.0 

10.0 

<  FLOORBOARD ) 

(  RF  > 

1 

(LLL  > 

( 

)  INDICATES 

THAT  IDENTIFICATION  NUMBER  SHOULD 

BE 

USED 

G.  SUPPLY  THE  FOLLOWING  INPUT  PARAMETERS  ON  CARDS  G . 6 : 


T 

I  PL 

ISG 

LTYPE 

INOGX 

1 

(  SEAT  CUSHION  ) 

(LT) 

3 

1 

2 

(SEAT  BACK) 

<  UT  ) 

4 

3 

3 

(FLOORBOARD  ) 

(RF  ) 

3 

5 

4 

( FLOORBOARD  > 

(LF  ) 

3 

0 

USING  THE  ABOVE  INPUT  PARAMETERS,  SUBROUTINE  EOUILB  WILL  ADJUST  THE 
X  AND  Z  COORDINATES  OF  THE  LT,  THE  PITCH  ANGLES  (MAINTAINING  THE  INITIAL 
RELATIVE  ORIENTATION)  OF  THE  UT,  LT,  CT,  N  AND  H  SEGMENTS,  THE  RUL  AND  LUL 
SEGMENTS,  AND  THE  RLL  AND  LLL  SEGMENTS,  AND  THE  INITIAL  NORMAL  CONTACT  FORCES 
(GX)  OF  THE  SEAT  CUSHION  WITH  THE  LT,  THE  SEAT  BACK  WITH  THE  UT  AND  THE 
FLOORBOARD  WITH  THE  RF .  IT  IS  BELIEVED  THAT  THE  RESULTING  INITIAL  POSITIONS 
ARE  UNIQUE  AND  ARE  FUNCTIONS  OF  THE  VALUES  OF  THE  CONTACT  NORMAL  FORCES  (GX) 
SUPPLIED  FOR  THE  SEAT  BACK  WITH  THE  LT  AND  THE  SEAT  CUSHION  WITH  THE  RUL 
CONTACTS. 
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H. 


SUBROUTINE  OUTPUT 


I 


THIS  SUBROUTINE  PROVIDES  INPUT  TO  CONTROL  THE  DESIRED  TIME  HISTORY 
OUTPUT  OF  SELECTED  SEGMENT  LINEAR  AND  ANGULAR  ACCELERATIONS,  VELOCITIES, 
AND  DISPLACEMENTS,  AND  JOINT  PARAMETERS. 


H.l  <  K=  1  )  SEGMENT  LINEAR  ACCELERATIONS  IN  LOCAL  REFERENCE 


CARD  H.l. A  FORMAT  (216,  3F12.6) 

NSG(K)  THE  NUMBER  OF  SELECTED  POINTS  ON 

THE  VARIOUS  BODY  SEGMENTS  FOR 
WHICH  TIME  HISTORIES  ARE  DESIRED. 

THE  MAXIMUM  VALUE  FOR  NSG ( K  >  IS  20. 

IF  NSG ( K )  IS  0,  INSERT  2  BLANK  CARDS. 
IF  NSG(K)  IS  1,  A  SINGLE  BLANK  CARD 
SHOULD  FOLLOW  CARD  H.l.K. 


MSG< 1 , K )  THE  SEGMENT  NUMBER  OF  THE  FIRST  POINT  AS  I 

DETERMINED  BY  THE  INDEX  I  ON  CARDS  B.2.A  -  I 

B.2.N.  THE  VEHICLE  MAY  BE  SPECIFIED  RY 
NSEG  +  1,  OR  THE  OTH  AIRBAG  BY  NSEG+1+0. 


XSG< I , I ,K>,  1*1  ,3  THE  X,  Y,  AND  2  COORDINATES  IN 
SEGMENT  REFERENCE  OF  THE  FIRST 
POINT  ( INCHES  )  . 


FOLLOWED  BY  NSGdO-1  CARDS  OF  THE  FOLLOWING  (0=2,  NSG(K>  ) 

CARDS  H.l.B  -  H.l.N  FORMAT  <112,  3F12.6) 

MSG ( 0 , K )  SAME  AS  ABOVE  BUT  FOR  THE  OTH  POINT. 

XSG< 1,0,10,1=1,3  SAME  AS  ABOVE  BUT  FOR  THE  OTH  POINT. 

H.2  ( K*2 )  SEGMENT  LINEAR  VELOCITIES  IN  VEHICLE  REFERENCE  I 

CARDS  H.2. A  -  H.2.N  FORMAT  <216,  3F12.6/  (112,  3F12.6I  > 

DESCRIPTION  SAME  AS  FOR  H.l. 

H . 3  ( K*3 )  SEGMENT  LINEAR  DISPLACEMENTS  IN  VEHICLE  REFERENCE  I 

CARDS  H.3.A  -  H.3.N  FORMAT  <216,  3F12.6/  <112,  3F12.6)  ) 

DESCRIPTION  SAME  AS  FOR  H.l. 
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H.4  <K*4>  SEGMENT  ANGULAR  ACCELERATIONS  IN  LOCAL  REFERENCE 


I 


CARD  H.4  FORMAT  (1215/  (112,  1016)  >  I 

NSG(K)  THE  NUMBER  OF  SELECTED  SEGMENTS  FOR  WHICH  I 

TIME  HISTORIES  ARE  DESIRED  (MAXIMUM  =  20).  I 

SUPPLY  BLANK  CARD  IF  NONE  ARE  DESIRED.  I 


MSG( 0  ,K  > ,0»1 , KSG  THE  SEGMENT  NUMBERS  AS  DETERMINED 
WHERE  KSG  =  NSG( K )  BY  INDEX  I  ON  CARDS  B.2.A  -  B.2.N. 

THE  VEHICLE  MAY  BE  SPECIFIED  BY  NSEG+1, 

OR  THE  JTH  AIRBAG  BY  NSEGM+J. 

IF  NSG(K>  >  II,  USE  THE  SECOND  CARD, 

LEAVING  THE  FIRST  FIELD  OF  6  COLUMNS  BLANK. 
IF  NSG(K)  »  11.  A  SECOND  CARD,  COMPLETELY 


BLANK,  SHOULD  FOLLOW  THIS  CARO. 

H . 5  ( K  =  5  )  SEGMENT  ANGULAR  VELOCITIES  IN  VEHICLE  REFERENCE  I 

CARD  H . 5  FORMAT  <1216/  (112,  1016)  )  I 

DESCRIPTION  SAME  AS  FOR  H.4. 

H.6  <  K  =  6 )  SEGMENT  ANGULAR  DISPLACEMENTS  IN  VEHICLE  REFERENCE  I 

CARD  H.6  FORMAT  <1216/  (112,  1016)  )  I 

DESCRIPTION  SAME  AS  FOR  H.4. 

H.7  ( K  =  7  )  JOINT  PARAMETERS  I 

CARD  H.7  FORMAT  <1216/  (112,  1016)  )  I 


NSG(K)  THE  NUMBER  OF  SELECTED  JOINTS  FOR  WHICH  TIME 

HISTORIES  ARE  DESIRED.  INSERT  BLANK  CARD  IF 
NONE  ARE  OESIRED  ( NJNT  MAXIMUM). 

MSG(  J  ,  K  ) ,  J=*  1  ,  KSG  THE  JOINT  NUMBERS  AS  DETERMINED  BY  INDEX  J  ON 

WHERE  KSG-NSG(K)  CARDS  B.3.A  -  B.3.J.  IF  NSG(K)  >  11,  USE  A 

SECOND  CARD  LEAVING  THE  FIRST  FIELD  OF  6  COL¬ 
UMNS  BLANK.  IF  NSG(K)  -  11,  A  SECOND  CARD, 
COMPLETELY  BLANK,  SHOULD  FOLLOW  THIS  CARD. 
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H.8  (SUBROUTINE  POSTPR >  -  HIC,  HSI  ANO  CSI  CALCULATIONS .  * 

THIS  CARD  IS  REQUIRED  WHENEVER  SUBROUTINE  POSTPR  IS  CALLED  AS  DETER-  * 

MINED  BY  THE  VALUE  OF  NPRT<4>  ON  CARD  A. 5  (ALL  VALUES  BUT  0  OR  4).  * 

CARD  H.8  FORMAT  (1814)  * 

JDTPTSU)  THE  INDEX  J  ON  CARDS  H.l  CORRESPONDING  TO  * 

THE  HEAD  C.G.  WHOSE  RESULTANT  ACCELERATION  * 

TIME  HISTORY  WILL  BE  USED  TO  COMPUTE  THE  HEAD  * 
INJURY  CRITERIA  (NIC)  AND  HEAD  SEVERITY  * 

INDEX  THE  COMPUTATIONS  WILL  NOT  BE  DONE  * 

IF  ODTPTS(l)  -  0  OR  BLANK.  * 

JOTPTS< 2 >  THE  INDEX  0  ON  CARDS  H.l  CORRESPONDING  TO  THE  * 

POINT  WHOSE  RESULTANT  ACCELERATION  TIME  HISTORY  * 
WILL  BE  USED  TO  COMPUTE  THE  CHEST  SEVERITY  » 

INDEX  (CSI).  THE  COMPUTATIONS  WILL  NOT  3E  DONE  * 
IF  JDTPTS( 2 )  -  0  OR  BLANK.  » 
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SUBROUTINE  POSTPR 


CAROS  I  ARE  REQUIRED  ONLY  IF  NP RT<  4  >  IS  AN  ODD  INTEGER  ON  CARD  A.S. 
(SEE  NOTE  IN  SUBROUTINE  SLPLOT  REGARDING  PROGRAM  CHANGES  THAT  MAY 
BE  NECESSARY  ON  PLOTTING  FACILITIES  OTHER  THAN  THOSE  AT  CALSPAN.) 

THESE  CARDS  ESSENTIALLY  SPECIFY  ALL  OF  THE  ARGUMENTS  TO  SUBROUTINE 
SLPLOT  AND  THE  INDICEES  OF  THE  DATA  IN  THE  TABULAR  TIME  HISTORIES  TO 
BE  PLOTTED.  THE  ABILITY  EXISTS  TO  PLOT  ANY  SET  OF  VARIABLES  IN  THE 
TIME  HISTORIES  AS  A  FUNCTION  OF  ANY  OTHER  VARIABLE  ON  A  FIXED  (SPEC¬ 
IFIED  BY  THE  USER  INPUT)  X-Y  AXIS.  BOTH  AXES  MAY  BE  EITHER  LINEAR  OR 
LOGARITHMIC.  ANY  DATA  FALLING  OUTSIDE  OF  THE  SPECIFIED  RANGE  OF  EACH 
AXIS  WILL  BE  IGNORED.  THE  INPUT  ALSO  SPECIFIES  THE  X  AND  Y  AXIS  LABELS 
AND  TWO  LINES  OF  PLOT  IDENTIFICATION  THAT  LIES  BELOW  THE  X  AXIS  LABEL. 


CARD  1.1 


FORMAT  (  18U  > 


NPLT  THE  NUMBER  OF  PLOTS  TO  BE  GENERATED  (‘1AX*20>. 

(IF  NPLT  >  17,  USE  TWO  CARDS.) 

NYP( K  > . K» 1 , NPLT  THE  NUMBER  OF  Y  VARIABLES  TO  BE  PLOTTED  VS. 

THE  SAME  X  VARIABLE  FOR  EACH  OF  THE  NPLT  PLOTS. 
NPLT  +  SUM  OF  NY P  IS  LIMITED  TO  25. 

A  SET  OF  CAROS  I. 2-1. 8  IS  REQUIRED  FOR  EACH  OF  THE  NPLT  PLOTS. 


CARD  1 . 2 . K  FORMAT  (  1814  ) 

MX  1 ( K  )  ,  MX2( K  )  THE  PAGE  NO.  (MX1)  AND  COLUMN  NO.  ( MX2  )  FROM 

THE  TABULATED  TIME  HISTORIES  OF  THE  X  (HOR¬ 
IZONTAL)  VARIABLE  FOR  THE  KTH  PLOT.  THESE 
PAGE  NOS.  START  WITH  21  SO  MX1  >  20. 

MX2  =■  0  REFERS  TO  TIME  (MSEC),  THE  LEFTMOST 
COLUMN.  MX2  CAN  BE  SUPPLIED  AS  A  NEGATIVE 
INTEGER  TO  INDICATE  THAT  THE  VALUE  FOR  TIME 
ZERO  WILL  BE  SUBTRACTED  FROM  ALL  VALUES  FOR 
PLOTTING  PURPOSES. 


4 


MY1(0,K).MV2<J,K)  THE  PAGE  NO.  <  MY  1 >  AND  COLUMN  NO.  ( M Y  2  >  FOR 

FOR  J-l.NYP(K)  THE  NYP(K)  Y  (VERTICAL)  VARIABLES  TO  BE 

PLOTTED  VS.  THE  X  VARIABLE  SPECIFED  BY  MX  1 
AND  MX2  FOR  THE  KTH  PLOT.  DEFINITION  OF  EACH 
MYI.MY2  SAME  AS  FOR  MX1.MX2  ABOVE. 
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CARD  I . 3 . K 


FORMAT  (14,  4X  ,  4F8.0) 


NX(  K  )  THE  NUMBER  OF  INTERVALS  OR  PLOTTING  DECRE¬ 

MENTS  ALONG  THE  X  (HORIZONTAL)  AXIS  FOR  THE 
KTH  PLOT.  THERE  WILL  BE  NX(K>+1  TIC  MARKS 
AND  NUMERIC  ANNOTATIONS,  THE  FIRST  WILL  8E 
FOR  X  0 ( K )  AND  THE  LAST  FOR  XN(K>.  IF  NX(K> 

IS  POSITIVE,  THE  SCALE  WILL  BE  LINEAR,  AND 
IF  NEGATIVE,  THE  SCALE  WILL  BE  LOGARITHMIC. 

XO ( K  >  THE  VALUE  OF  THE  ORIGIN  OF  THE  X  AXIS  FOR 

THE  KTH  PLOT. 

XN(K>  THE  VALUE  OF  THE  END  OF  THE  X  AXIS  FOR  THE 

KTH  PLOT.  FOR  NX(K)  POSITIVE,  XN(K)  SHOULD 
EQUAL  XO ( K )  +  NX{ K  )*DX  ,  WHERE  DX  IS  A  REASON¬ 
ABLE  PLOT  DECREMENT.  IF  NX(K>  IS  NEGATIVE, 

BOTH  X  0  <  K  >  AND  XN(K>  SHOULD  BE  POWERS  OF  TEN, 
WHERE  XN ( K  )  =>  XQ( K > *  1 0** I  NX ( K >  I  . 

XL ( K )  THE  LENGTH  (PLOTTING  INCHES)  OF  THE  X  AXIS 

FOR  THE  KTH  PLOT.  XL(K)  SHOULD  BE  AT  LEAST 
ONE  INCH  LESS  THAN  XS(K). 

XS(K)  THE  PAPER  SIZE  (PLOTTING  INCHES)  IN  THE  X 

DIRECTION  FOR  THE  KTH  PLOT.  THE  PLOT  WILL  BE 
CENTERED  WITHIN  THIS  DIMENSION. 

CARD  I.4.K  FORMAT  (14,  4X  ,  4F8.0) 

NY(K),YO(K),YN(K),  SAME  DEFINITIONS  AS  FOR  THE  CORRE SPOMD I NG 

V  L  (  K  )  AND  YS  (  K  >  ITEMS  ON  CARD  I.3.K  BUT  FOR  THE  (VERTICAL) 

AXIS  FOR  THE  KTH  PLOT.  NOTE  THAT  EACH  OF  THE 
NYP(K)  VARIABLES  WILL  BE  PLOTTED  ON  THE  SAME 
SCALE  . 

NOTE:  TO  PLOT  ON  THE  VERSATEC  PLOTTER  AT  CALSPAN,  THE  EXEC  CARD  SHOULD 

CONTAIN  THE  PARAMETERS  , PL OTTER “VERSATEC , LONG=M 

WHERE  M= V  INDICATES  THAT  THE  X  AXIS  WILL  BE  IN  THE  LONG  (11  INCH) 
DIRECTION.  FOR  THIS  CASE,  THE  RECOMMENDED  VALUES  FOR 
XS( K  )  AND  YS ( K )  ARE  10.5  AND  8.0. 

AND  M=U  INDICATES  THAT  THE  Y  AXIS  WILL  BE  IN  THE  LONG  DIRECTION. 

AND  THE  RECOMMENDED  VALUES  FOR  XS(K)  AND  Y  S  <  K  >  ARE  REV¬ 
ERSED. 

IN  ADDITION,  THE  FOLLOWING  CARD  IS  REQUIRED  AT  THE  END  OF  THE  OOB: 

//  EXEC  VPLOT,PCOPY=N 

WHERE  N  IS  THE  NUMBER  OF  COPIES  TO  BE  PRODUCED. 


CARO  I.5.K 


FORMAT  <14,  4 X ,  15A4  ) 


NXLAB< K  > 

XLAB! K  ) 

CARD  I.6.K 

NYLAB( K  )  , 
VLAS ( K > 


THE  NUM3ER  OF  CHARACTERS  IN  THE  LABEL  OF  THE 
X  AXIS  FOR  THE  KTH  PLOT  (MAX*60,  MAY  3E  ZERO). 

THE  ALPHANUMERIC  INFORMATION  TO  BE  USED  AS 
THE  LABEL  OF  THE  X  AXIS  FOR  THE  KTH  PLOT. 

DATA  SHOULD  BE  LEFT  ADJUSTED  AS  INPUT  SINCE 
PROGRAM  WILL  CENTER  THE  NXLAB(K)  CHARACTERS 
BENEATH  THE  X  AXIS. 

FORMAT  <14,  4X ,  15A4 ) 

SAME  DEFINITION  AS  FOR  CARD  I.5.K  BUT  FOR  THE 
LABEL  OF  THE  Y  AXIS  FOR  THE  KTH  PLOT. 


CARD  I.7.K 


FORMAT  <14,  4X ,  15A4 ) 


NPLBKK)  THE  NUMBER  OF  CHARACTERS  IN  THE  UPPER  OF  TWO 

LINES  OF  PLOT  IDENTIFICATION  FOR  THE  KTH  PLOT 
(MAX  =  60,  MAY  BE  ZERO). 

PLBl(K)  THE  ALPHANUMERIC  INFORMATION  TO  RE  USED  IN 

THE  UPPER  LINE  OF  THE  PLOT  IDENTIFICATION 
FOR  THE  KTH  PLOT.  DATA  SHOULD  BE  LEFT  ADJUSTED 
AS  INPUT  SINCE  THE  PROGRAM  WILL  CENTER  THE 
NPLBKK)  CHARACTERS  BENEATH  THE  X  AXIS  LABEL. 


CARD  I.8.K 


FORMAT  < 14,  4X.  15A4) 


NPLB2<  K  )  ,  SAME  DEFINITION  AS  FOR  CARD  I.7.K  BUT  FOR  THE 

PLBZ(K)  LOWER  LINE  OF  THE  PLOT  IDENTIFICATION. 


NOTE:  THE  15A4  TERM  IN  THE  FORMAT  FOR  CARDS  I.5-T.3  IS  TO  BE  USED 
ON  COMPUTERS  WHERE  A  SINGLE  PRECISION  WORD  IS  EQUIVALENT  TO  FOUR 
ALPHANUMERIC  CHARACTERS.  THIS  TERM  IN  THE  FORMAT  FOR  SUBROUTINE 
P  OS  TP  R  SHOULD  BE  TO  1 0A6  OR  6A10  FOR  THOSE  COMPUTERS  WHOSE  SINGLE 
PRECISION  WORD  SIZE  IS  EQUIVALENT  TO  6  OR  10  CHARACTERS.  THIS  IS 
NECESSARY  TO  INSURE  THAT  A  CONTIGUOUS  STRING  OF  CHARACTERS  IS  STORED 
IN  THE  COMPUTER  -MEMORY  AS  REQUIRED  BY  SUBROUTINE  SYMBOL. 


APPENDIX  B 


NUMBERED  STOPS  WITHIN  THE  ATB-II  MODEL  COMPUTER  PROGRAM 

There  are  many  program  stops  within  the  ATB-II  model  computer  pro¬ 
gram.  These  are  all  numbered  (in  octal  to  be  compatible  with  most  computer 
systems)  and  most  computer  systems  will  print  out  the  STOP  number  message  (as 
a  condition  code  on  the  IBM/360  and  IBM/370  systems).  Most  of  the  program 
stops  will  print  out  an  error  message  indicating  the  reason  of  the  program 
stop.  For  those  produced  by  the  input  routines,  the  actual  input  error  is 
probably  caused  by  missing  or  erroneous  data  on  previous  input  cards.  The 
user  is  advised  to  check  the  output  produced  by  the  input  routines  to  ascertain 
at  what  point  within  the  input  deck  the  error  may  have  occurred. 

Following  is  a  list  of  all  the  numbered  program  stops  within  the 
ATB-II  model  computer  program,  the  subroutine  involved,  the  input  card  number 
(where  applicable),  the  reason  for  the  stop  and  possible  remedial  action. 

1:  Main  Program;  normal  program  stop,  all  activity  requested  by 

the  user  input  has  been  completed. 

2:  Subroutine  RSTART,  input  card  A. 2;  improper  variable  name, 

index  or  type  has  been  supplied. 

3:  Subroutine  BINPUT,  input  card  B.3;  error  in  defining  flexible 

elements,  there  is  only  one  negative  JNT  in  string. 

4:  Subroutine  BINPUT,  input  card  B.7.A;  value  of  NFX  does  not 

agree  with  the  value  of  NFLX  that  has  been  computed  from  the 
data  supplied  on  input  cards  B.3. 
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5:  Subroutine  BIN'PUT,  input  card  B.^.j;  the  segment  number  defined 

by  KNT(J)  is  not  an  interior  segment  of  a  flexible  element  from 
data  supplied  on  input  cards  B.5. 

6:  Subroutine  VINPUT,  input  card  C.2;  improper  value  for  MSEG. 

Allowable  values  are  zero  or  blank  (to  represent  the  primary 
vehicle),  <  NSEG  (to  indicate  prescribed  motion  for  one  of  the 
specified  segments)  or  one  greater  than  the  value  of  MSEG 
supplied  on  a  previous  C.2  card. 

7:  Subroutine  VINPUT,  input  cards  C;  the  number  of  sets  of  C 

cards  is  greater  than  6  or  the  total  number  of  segments  defined 
by  the  program  is  greater  than  30. 

10:  Subroutine  SINPUT,  input  card  D.2;  the  plane  identification 

index  (J)  is  in  error,  must  be  supplied  as  consecutive  integers. 

11:  Subroutine  KINPUT,  input  card  E.6;  the  function  number  is  less 
than  1  or  greater  than  50. 

12:  Subroutine  KL-PUT,  input  card  E.7;  the  function  number  is  less 
than  1  or  greater  than  50. 

13:  Subroutine  KINPUT,  input  card  E.7.D;  inconsistent  value  for 
THETAO. 

14:  Subroutine  FINPUT,  input  cards  F.1.B-F.4.B;  the  supplied  value 
for  NJ  (first  number  on  line  just  printed)  does  not  correspond 
to  the  index  J  supplied  on  input  cards  F.1.A-F.4.B. 

15:  Subroutine  FDINIT,  input  cards  F.1-F.4  (Subroutine  FINPUT), 

F.8.C  or  F.8.D1  (Subroutine  HINPUT) ;  the  printed  function 
number  has  not  been  defined  on  input  cards  E. 
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16:  Subroutine  FDINIT,  input  cards  F.1-F.4  (Subroutine  F INPUT], 

F.S.C  or  F. 8.1)1  (Subroutine  HINPUT) ;  the  site  of  the  generated 
TAB  array  exceeds  2000  or  the  site  of  the  N'TAB  array  exceeds 
500.  These  arrays  are  generated  by  input  cards  E  and  F. 

17:  Subroutine  FINPUT,  input  cards  F.5;  the  function  number  has  not 
been  defined  on  input  cards  E.7. 

20:  Subroutine  FINPUT,  input  card  F.6;  the  air  bag  number  K  has 

not  been  supplied  in  numeric  order. 

21:  Subroutine  FINPUT,  input  card  F.7.B;  the  value  of  JJ  does  not 
correspond  to  the  index  J  of  the  non-tero  elements  read  in  on 
input  card  F.7.A. 

24:  Subroutine  INITAL,  input  cards  G.3;  input  error  for  IYPR(4,J), 
supplied  value  is  greater  than  J  and  less  than  or  equal  to 
NSEG. 

25:  Subroutine  INITAL,  input  cards  G.3;  input  error  for  IYPR(4,J), 
supplied  value  is  negative  but  not  equal  to  —  JNT(J-l)'. 

26:  Subroutine  EQUILB,  input  card  G.4,  G.5  or  G.6;  card  number  and 
contents  are  printed. 

27:  Subroutine  EQUILB,  input  cards  G.5;  iteration  for  listed 
variable  is  not  converging  within  the  specified  range. 

30:  Subroutine  POSTPR,  input  card  1.9  (on  Edgewood  Univac  1108  only' 
card  is  missing  or  in  error,  no  plots  have  been  generated. 


31:  Subroutine  DINT;  negative  square  root  has  been  detected  in 
Subroutine  PDAUX  with  the  time  step  size  H=HMIN.  This  is 
usually  an  indication  that  there  is  extreme  angular  motion 
occurring.  Unless  there  are  other  obvious  errors,  can  be 
remedied  by  tightening  the  angular  convergence  tests  on 
input  cards  B.6  or  decreasing  the  value  for  HMIN  on  input 
card  A. 3. 

32:  Subroutine  AIRBG3;  logical  error  in  program  code  has  been 
detected. 

33:  Subroutine  IMPULS;  improper  arguments  to  Subroutine  IMPULS, 
program  logic  error. 

34:  Subroutine  DAUX;  value  of  NJ2  exceeds  the  array  size  for 
RHS  and  IJK. 

35:  Subroutine  FSMSOL;  maximum  dimension  of  400  on  C  array  has 
been  exceeded. 

36:  Function  FNTERP ;  improper  arguments  to  function  as  indicated 
by  error  code  as  follows: 

1  -  PHI  less  than  -it, 

2  -  PHI  greater  than  tt, 

3  -  THETA  less  than  zero, 

4  -  THETA  greater  than  w, 

37:  Subroutine  OUTPUT;  program  logic  error,  NPRT(4)  on  input 
card  A.  5  is  less  than  or  equal  to  -4  or  greater  than  +4. 

40:  Subroutine  HEDING;  program  logic  error,  NPRT(4)  on  input 
card  A. 5  is  less  than  or  equal  to  -4  or  greater  than  +4. 
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41:  Subroutine  DSMSOL;  matrix  supplied  to  Subroutine  DSMSOL  (by 
Subroutine  IMPLS2 ,  SEGSEG,  EDEPTH  or  INTERS)  is  singular. 


APPENDIX  C 


CROSS  REFERENCE  CHART  FOR  THE  ATB-II  MODEL 

A  computer  program  has  been  written  to  generate  a  cross  reference 
chart  showing  the  relationships  between  the  ATB-II  model  subprograms,  FORTRAN 
library  routines,  CALCOMP  plotting  routines  and  the  labelled  common  blocks. 
The  input  to  the  program  was  obtained  from  the  information  produced  by  the 
MAP  procedure  on  the  Univac  1108  Computer  System.  It  shows  the  complexity 
of  the  105  subprograms  that  comprise  the  ATB-II  model  and  has  been  used  at 
Calspan  to  aid  in  setting  up  overlay  procedures  for  the  CVS-III  program. 

The  chart  divides  the  subprograms  into  logical  blocks,  dependent  on 
the  program  flow,  that  is  very  similar  to  the  overlay  levels  (Strieb,  1976) 
of  the  program  that  is  currently  being  used  on  the  CDC  computer  at  Wright - 
Patterson  Air  Force  Base.  It  shows  the  multiplicity  of  calls  that  causes  so 
much  difficulty  in  establishing  an  overlay  procedure  for  the  ATB  model  on  the 
CDC  computers  and  the  relationship  of  the  newly  developed  subprograms  to  the 
rest  of  the  program. 

During  installation  of  the  program,  care  should  be  exercised  that 
the  labelled  common  blocks  are  loaded  into  computer  storage  in  the  order 
indicated  on  the  chart  since  Subroutine  POSTPR  appends  the  storage  for  the 
unneeded  common  blocks  to  C0M10N/TEMPVS/  for  temporary  storage  to  process 
output  Unit  No.  8. 
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APPENDIX  D 


LIST  OF  105  SUBPROGRAMS 

THAT  COMPRISE  THE  ATB-II  MODEL  COMPUTER  PROGRAM 

This  appendix  contains  a  list  of  the  105  subprograms  that  comprise 
the  ATB-II  model  computer  program  in  the  order  that  they  were  supplied  on  the 
program  tape  ATBMDL  sent  to  WPAFB  on  19  November  1979.  The  first  subprogram  is 
merely  the  common  blocks  used  by  the  program,  the  second  is  the  main  program 
followed  by  all  of  the  remaining  subprograms  in  alphabetical  order.  Each 
subprogram  name  is  appended  with  its  revision  number  followed  by  the  date  of 
the  latest  change  to  the  subprogram.  This  same  date  and  revision  number 
appears  on  the  second  card  of  each  subprogram. 

All  subprograms  whose  revision  number  are  19  were  modified  or  are 
new  for  version  19  of  the  CVS  program  developed  for  this  contract.  However, 
only  those  marked  with  an  asterisk  are  included  in  the  subprogram  listings 
in  Appendix  E  because  they  represent  major  development  efforts.  The  remaining 
subprograms,  marked  revision  19,  contain  only  minor  changes,  primarily  a 
reorganization  of  the  labelled  common  blocks  used  by  each  subprogram,  from 
earlier  versions  of  the  program. 
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LIST  OF  105  SUBPROGRAMS 

THAT  COMPRISE  THE  ATB-II  MODEL  COMPUTER  PROGRAM 


SUBPROGRAM 

DCV  Mrt 

DATE 

SUBPROGRAM 

O  C \r  KIA 

DATE 

SUBPROGRAM 

PPV  MO 

DATE 

KtV  •  NU . 

*  COMMON  19 

10/23/79 

IVCV  •  liv. 

DSETD  19 

08/05/78 

l\C  V  •  wu  • 

MAT31  17 

01/03/77 

*  MAIN3D 

19 

10/30/79 

DSETQ 

19 

08/05/78 

MAT33 

17 

01/03/77 

ADJUST 

19 

09/18/79 

DSMSOL 

03 

07/08/74 

ORTHO 

03 

05/31/73 

AIRBAG 

19 

08/05/78 

DZP 

19 

08/05/78 

OUTPUT 

19 

10/05/78 

AIRBGG 

19 

08/05/78 

EDEPTH 

19 

08/05/78 

PANEL 

19 

08/05/78 

AIRBG1 

19 

09/18/79 

EFUNCT 

10 

08/16/74 

PDAUX 

19 

09/ 0S/78 

AIRBG3 

19 

08/05/78 

EJOINT 

19 

10/23/78 

PLELP 

19 

10/19/79 

BELTG 

19 

08/05/78 

ELONG 

01 

10/05/72 

PLSEGF 

19 

10/19/79 

BELTRT 

19 

10/19/79 

ELTIME 

19 

09/18/79 

PLTXYZ 

19 

09/05/78 

BGG 

19 

08/05/78 

EQUILB  19 

10/19/79 

POSTPR 

19 

02/20/79 

B INPUT 

19 

10/23/78 

EULRAD 

19 

08/05/78 

PRINT 

19 

05/25/79 

BLKDTA 

19 

08/05/78 

EVALFD 

10 

09/26/74 

PRIPLT 

19 

09/05/78 

CFACTT 

03 

05/31/73 

* 

FDINIT 

19 

06/08/79 

QSET 

16 

03/24/76 

CHAIN 

19 

09/05/78 

FINPUT 

19 

04/27/79 

RCRT 

03 

07/19/73 

CINPUT 

IS 

08/05/78 

FLXSEG 

IS 

08/05/78 

ROT 

IS 

08/05/78 

CMPUTE 

19 

09/18/79 

* 

FNTERP 

19 

08/05/78 

RSTART 

19 

10/23/79 

*  CONTCT 

19 

10/23/79 

* 

FRCDFL 

19 

10/19/79 

SEARCH 

19 

10/23/79 

CROSS 

03 

05/31/73 

FSMSOL 

19 

04/27/79 

SEGSEG 

19 

10/19/79 

DAUX 

19 

04/27/7 9 

GLOBAL 

19 

10/19/79 

SETUP 1 

19 

08/05/78 

DAUX11 

19 

09/05/78 

* 

HBELT 

19 

10/23/79 

SETUP2 

19 

08/05/78 

DAUX12 

19 

09/05/78 

* 

HBPLAY 

19 

10/23/79 

S  INPUT 

19 

09/05/78 

DAUX22 

19 

09/05/78 

HEDING 

19 

08/05/78 

SLPLOT 

18 

03/21/78 

DAUX31 

19 

09/05/78 

HERRON 

19 

08/05/78 

SPDAMP 

19 

08/05/78 

DAUX32 

19 

09/05/78 

HICCSI 

18 

07/26/78 

★ 

SPLINE 

19 

05/14/79 

DAUX33 

19 

09/05/78 

* 

HINPUT 

19 

10/23/79 

SPRNGF 

19 

08/05/78 

DAUX44 

19 

09/05/78 

♦ 

HPTURB 

19 

10/23/79 

TRIGFS 

19 

08/05/78 

DAUX55 

19 

09/05/78 

• 

HSETC 

19 

10/30/79 

* 

UPDATE 

IS 

10/23/7S 

DHHPIN 

19 

08/05/78 

IMPLS2 

19 

09/05/78 

UPDFDC 

19 

10/19/79 

DINT 

19 

09/18/79 

IMPULS 

19 

09/05/78 

♦ 

VEHPOS 

19 

09/15/78 

DOTT31 

17 

12/20/76 

* 

INITAL 

19 

05/25/79 

* 

VINPUT 

19 

06/08/79 

DOTT33 

17 

01/03/77 

INTERS 

19 

08/05/78 

VISCOS 

19 

10/23/78 

DOT31 

17 

01/03/77 

* 

KINPUT 

19 

09/18/79 

♦ 

VISPR 

19 

10/30/79 

DOT33 

17 

01/03/77 

LINAXS 

18 

02/28/78 

* 

WINDY 

19 

08/05/78 

DRCIJK 

18 

02/24/78 

LOGAXS 

19 

09/18/79 

XDY 

07 

01/31/74 

DRCYPR 

19 

08/05/78 

LTIME 

01 

02/27/74 

YPRDEG 

19 

08/05/78 
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APPENDIX  E 


LISTING  OF  FORTRAN  IV  SOURCE  DECKS  OF  ATB-II  SUBPROGRAMS 
DEVELOPED  FOR  WPAFB 

This  appendix  contains  a  listing  of  the  FORTRAN  IV  source  decks  of 
the  ATB  subprograms  that  were  developed  or  substantially  modified  under 
Contract  Nos.  F33615-75-C-5002  and  F33615-78-C-0516  for  AMRL,  Wright-Patterson 
AFB.  Actually,  minor  modifications  were  made  to  many  other  subprograms  (those 
identified  as  Revision  19  in  Appendix  D)  but  only  those  subprograms  that  were 
new  or  involve  major  modifications  are  included  here.  They  are: 


Subprogram  Name 

Date 

COMMON 

19 

10/23/79 

MAIN3D 

19 

10/30/79 

CONTCT 

19 

10/23/79 

FDINIT 

19 

06/08/79 

FNTERP 

19 

08/05/78 

FRCDFL 

19 

10/19/79 

HBELT 

19 

10/23/79 

HBPLAY 

19 

10/23/79 

HINPUT 

19 

10/23/79 

HPTURB 

19 

10/23/79 

HSETC 

19 

10/30/79 

INITAL 

19 

05/25/79 

KINPUT 

19 

09/18/79 

SPLINE 

19 

05/14/79 

UPDATE 

19 

10/23/79 

VEHPOS 

19 

09/15/78 

V INPUT 

19 

06/08/79 

VISPR 

19 

10/30/79 

WINDY 

19 

08/05/78 
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BLOCK  DATA 


REV  19  10/23/79 


* 


IMPLICIT  REAL'S  (A-H.O-Z) 

COMMON/CONTRL/  TIME , NSEG , NJNT . NPL . NBLT . N8AG , NVEH , NGRND , 

*  NS,NQ,NSD,NFLX,NHRNSS,NWINDF, NJNTF , NPRT( 361 
COMMON /CNSNTS/  P I , RAD IAN , G ,TH IRD  .  EP S( 24  ) , 

*  UNITL.UN1TM.UNITT , GRAVTYt  3  ) 

COMMON /JBARTZ/  MNPL  <  30),MNBLT(  8  > ,MNSEG(  30>,MNBAG(  6), 

*  MPL<  3,5,30 ).MBLT< 3.5.8 >,MSEG( 3,5, 30 >,MBAG< 3, 10,6), 

*  NTPL<  5 , 30  > , NTBLT<  5,8>,NTSEG(  5,30) 

COMMON/TITLES/  DATE ( 3 ) . COMENTI 40  > , VPSTTL ( 20 ) , BDVTTL ( S ) , 

*  BLTTTL < 5.8  > .PLTTLI 5,30  ) . BAGTTL ( 5 , 6  > .  SEG ( 30  ) , 

*  JOINT(30),CGS(30),JS(30) 

REAL  DATE, COMENT, VPSTTL .BDVTTL ,8LTTTL,PLTTL .BAGTTL. SEG, JOINT 
LOG ICAL* 1  CGS  ,  OS 

COMMON/FORCES/  PSF ( 7 , 30 ) , BSF < 4 , 20  ) . SSF ( 1 0 , 20 > ,  BAGSF ( 3 , 20 > . 

*  PRJNTI 6 , 30  > , NPANELI 5 > , NPSF , NBSF , NSSF , NBGSF 
COMMON/RSAVE/  XSGI 3 . 20 , 3 > , NSG< 7  )  ,MSG< 20 . 7  ) 

COMMON/CD  I  NT /  UU< 4  )  ,GH< 3 , 4  ) . 

*  E<3,240),FF(5,240),GG(5.240),Y(5,240),U(  5,240  >  , 

*  H , HPR I  NT , TSAVE ,TPRINT,TSTART, ICNT , I DBL , I  FLAG 

NOTE:  FF  REPLACES  F. 

COMMON /TEMP VS/  JTMPVSI 1 0538 > 

COMMON /SGMNTS/  D< 3 , 3 , 30 > , VMEG( 3 , 30 > , VMEGD1 3 , 30 > . U1 ( 3 , 30 > . U2< 3 , 30  ) . 

*  SEGLP(3,30),SEGLV<3,30),SEGLA(3,30),NSYM( 30) 

COMMON /DE SC RP /  PHI < 3 , 30 ) , V< 30 > , RW< 30 ) , SRI  3 , 60 ) , HA< 3 , 60 > , HB ( 3 , 60 > , 

*  RPH I <  3.30 ) ,HT<  3,3,60 !. SPRING! 5,90  ), VI SC<  7,90  )  . 

*  JNT(30),IPIN(30),ISING( 30), IGLOB( 30 ) , JO  I NTF ( 30 ) 
COMMON/CNTSRF /  PL< 1 7 , 30  > , BELT< 20 , 8 ) , TPTSI 6 , 8  ) , BD(  24 , 4  0  ) 
COMMON/TABLES/  MXNTI , MXNTB , MXTB  1  , MXTB  2 , NTH  50  ) , NTAB(  500  )  ,TAB(  2000  ) 
COMMON/ VP OSTN/  ZPLT<  3 ) , SPLT<  3  > ,AXV( 3 .6 ) . VATABl 6,101,6), 

*  VTO ( 6 ) , VDT< 6 ) ,TIMEV( 6 ) ,OMEGV( 6  )  ,NVTAB( 6 > . INDXVI 6  > 
COMMON /CMATRX/  VI ( 3 , 30 ) , V2 ( 3 , 30 > , V3( 3 , 1 2  ) , B 1 2( 3 . 3 , 60  ) , A22( 3 , 3 . 60 > . 

*  F(3,30),TQ(3,30),WJ<30) 

COMMON/CEULER/  I EULER< 30  ) , H I R( 3 , 3 , 30 > , ANG( 3 , 30  )  ,ANGD( 3 , 30 ) , 

*  FE<3,30),TQE{3,30),CONST<3,30) 

COMMON/FLXBLE/  HF< 4 , 12 , 8 ) , 842< 3 , 3 , 24  ) , V4< 3 , 8  ) , NFLEXt 3 , 8  ) 
COMMON/CSTRNT /  A1 3< 3 , 3 , 24  ) , A23< 3 , 3 , 24  )  , B3 1 (  3 , 3 , 24  ) , 832< 3 , 3 , 24  ) , 

*  HHT<3,3, 12) ,RK1<3, 12  )  ,RK2<  3, 12  >.QQ<  3, 12  )  ,TQQ(3, 12  ) , 

*  RQQ<  3,12), HQQ( 3 , 12),SQQ( I2),CFQO( 12), 

*  KOI ( 12  ) , KQ2( 12), KOTYPE ( 1 2  ) 

COMMON/TEMPVI /  CREST ,TTI ( 3  ) , R 1 1 ( 3  ) , R2 I ( 3 > , JSTOP ( 4 , 2 . 30  ) 
COMMON/DAMPER/  APSDMI 3 . 20  ) . AP SON! 3 , 20  ) , ASD< 5 , 20 > , MSDMf 20 ) . MSDNI 20  ) 
COMMON/ INTEST/  SGTESTI 3 , 4 , 30 > , XTE ST< 3 , 1 20 > , SEGTl 120),REGT( 120 > 

REAL  SEGT 

COMMON/COMAIN/  VAR<  240  ) , DER<  240  ) , OT ,H0 , HMAX , HMIN , RSTIME , 

*  ISTEP,NSTEPS,NDINT,NEQ, IRS  IN, IRSOUT 
COMMON/ABDATA/  ZDEP <  3 , 5 ) , DBR<  3 , 3 , 5  ) , OPVCTRt  3 , 5  ) , DEPLOY*  3 , S > , 

*  AB(3,5),B(9,4,5),ZR(3,4,5),BFB(3,4,5),0RR(9,4,5>, 

*  VBAGGf 5),VSCS(5),SPRK<5),CK(5) , CMASS( 5>,CYMIN<5), 


COMMON  0010 
COMMON  0020 
COMMON  0030 
COMMON  0040 
COMMON  0050 
COMMON  0060 
COMMON  0070 
COMMON  0080 
COMMON  0090 
COMMON  0100 
COMMON  0110 
COMMON  0120 
COMMON  0130 
COMMON  0140 
COMMON  0150 
COMMON  0160 
COMMON  0170 
COMMON  0180 
COMMON  0190 
COMMON  0200 
COMMON  0210 
COMMON  0220 
COMMON  0230 
COMMON  0240 
COMMON  0250 
COMMON  0260 
COMMON  0270 
COMMON  0230 
COMMON  0290 
COMMON  0300 
COMMON  0310 
COMMON  0320 
COMMON  0330 
COMMON  0340 
COMMON  0350 
COMMON  0360 
COMMON  0370 
COMMON  0380 
COMMON  0330 
COMMON  0400 
COMMON  0410 
COMMON  0420 
COMMON  0430 
COMMON  0440 
COMMON  0450 
COMMON  0450 
COMMON  0470 
COMMON  0480 
COMMON  0490 
COMMON  0500 
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«k 

COMMON /C Y DATA/ 

* 


COMMON/VI NDFR/ 
COMMON/ HRNESS/ 


END 


CYMOUT1 5  > ,BAGPV( 5  >  ,PD( 5  > ,VBAG( 5  > .VOlBPt  5  > , 

PC YV( 5 ) , PC YM I N <  5 ) , P  VBAGf 5  > , TV1 ( 3 , 4 , 5  > , TV2  <  3  ,  1 0 . 5  > , 
SWITCH<5),PYMOUT<5>,SCAL£<S>,PR£VT,IFUU.(6; 

CYT0( 5  ) , CYPA( 5  ),CYSPi 5  )  ,CYT0<  5  )  ,CYV0<  5  )  ,CYCD< 5  ), 
CYK<5),CYR<5),CYAT<5),CYPV(5>,CYCD0(5),CYA0<5), 
CYP0< 5 ),CYSS(5  >,CYL0( 5  )  ,CYC( 5  )  ,CYRHOO( 5  > ,CYVMAX< 5  ) , 
CYORFC(5),CYRHO<5),CYT(5),CYP(5),CYV(5) 
WTIME(30>,IWIND(30)  ,MWSEG( 5,30) 

BAR( 1 5 , 100  ) , BB< 100>,BBDOT(  1 00 > . PLOSS < 2 , 1 00  ) , 
XLONG(20),HTIME(2),IBAR(5,100),NL(2, 100), 

NPTSPBt  20 ) ,NPTPLV<  20  ) , NTHRNSl 20 ) , NBLTPHf 5  > 


COMMON 

0510 

COMMON 

0520 

COMMON 

0530 

COMMON 

0540 

COMMON 

0550 

COMMON 

0560 

COMMON 

0570 

COMMON 

0580 

COMMON 

0590 

COMMON 

0600 

COMMON 

0610 

COMMON 

0620 
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AMRL  ARTICULATED  TOTAL  BODY  (ATB-II)  MODEL  COMPUTER  PROGRAM  MAIN 

DEVELOPED  1 Y  CALSPAN  CORP . .  P.0.  BOX  400.  BUFFALO.  NY  14225  MAIN 

REV  19  10/30/79  MAIM 

MAIN  PROGRAM  MAIM 

MAIN 

PERFORMS  CARD  INPUT,  PROGRAM  INITIALIZATION,  MAIN 

CONTROL  OF  INTEGRATION  LOOP  AND  SELECTED  OUTPUT.  MAIN 

MAIM 

IMPLICIT  REAL*8(A-H.O-Z>  MAIN 

COMMON/CONTRL/  TIME , NSEG , NJNT, NPL , NSLT . N5AG , NVEH , NGRND ,  MAIN 

*  NS.NQ.NSD.NFLX.NHRNSS.NWINDF , N3NTF , NPRT( 36 >  MAIN 

COMMO  ./CNTSRF /  PL ( 1 7 . 30 ) . 3ELT(  20 . 8 ) , TPTS ( 6 . 3 ) , BD< 24 , 40 )  MAIN 

COMMON /SGMNTS/  D( 3 , 3 , 30 > . WMEG( 3 . 30 > ,WMEGD(  3 . 30 > . U 1  ( 3 , 30 > . U2< 3 , 30 > .  MAIN 

*  SEGLPl 3.30  )  ,SEGLV( 3.30) . SEGLAt 3,30 > ,NSYM( 30 )  MAIN 

COMMON  ^TITLES/  DATE! 3 ) . COME NT< 40 ) , VPSTTL ' 20 > . BDYTTL ( 5 ) .  MAIN 

*  BLTTTL (5,8>,PLTTL(5,30>, BA3TTL  <5,6),SEG(30),  MAIN 

*  JOINT(30),CGS(30>,JS(30>  MAIN 

REAL  DATE .COME NT, VPSTTL, BDYTTL .BLTTTL .PLTTL .SAGTTL .SEG. JOINT  MAIN 

LOGICAL  *  1  CGS.OS  MAIN 

COMMON /CNS NTS/  P I , RAD  I AN . G . TH I RD . EP S t 24 ) .  MAIN 

*  UNITL , UN ITM, UN  ITT ,GRAVTY( 3  )  MAIM 

COMMON/COMAIN/  VAR< 240 ) , DS R ( 240 ) . DT , HO , HMAX , HM I N . RSTI ME ,  MAIM 

*  ISTEP  .NSTEPS.NDINT.NEQ, IRSIN, IRSOUT  MAIN 

LOGICAL  NPRT1 .NPRT2.NPRT3  MAIM 

CALL  ELTIMEU.  1)  MAIN 

CALL  BLKOTA  MAIM 

MAIM 

INPUT  CARDS  A . 1  AND  A. 2,  TEST  FOR  RESTART.  MAIN 

MAIN 

READ  (5,10)  DATE, IRSIN, IRSOUT, RSTIME .COMENT  MAIN 

10  FORMAT (3A4.2I4.F3.0/20A4/20A4)  MAIM 

WRITE  (6,11)  DATE, IRSIN, IRSOUT, RSTIME, COMENT  MAIM 

11  FORMAT< ’ 1 ■ .30X, ‘AMRL  ARTICULATED  TOTAL  BODY  (ATB-II)  MODEL'  ////  MAIM 

*  31X, 'DEVELOPED  BY  CALSPAN  CORP.,  P.O.  30X  400.  BUFFALO  NY  14225''  MAIN 

*/3 1 X , 1  FOR  THE  AEROSPACE  MEDICAL  RESEARCH  LABORATORY,'  /  MAIN 

*  3 1 X , ' AFSC  AERONAUTICAL  SYSTEMS  DIVISION,  WRIGHT  PATTERSON  AFB '  /  MAIN 

*  31X. 'UNDER  CONTRACTS  F33S 1 5-75C-3002  AND  F336 1 5-78C-05 1 6 . '  //  MAIM 

*  3 1 X , ' AND  FOR  THE  NATIONAL  HIGHWAY  TRAFFIC  SAFETY  ADMINISTRATION,'  MAH 

*/3 1 X , ' U . S .  DEPARTMENT  OF  TRANSPORTATION,  UNDER  CONTRACTS'  /  MAH 

*  31 X , ' FH- 1 1 -7592 ,  HS-053-2-485,  HS-5-01300  AND  HS-6-0141C.'  ////  MAIM 

*  31X, ‘PROGRAM  DOCUMENTATION  -  NHTSA  REPORT  NOS.  DOT-HS-30 1 -507 '  /  MAIN 

*  31X, 'THROUGH  510  (FORMERLY  CALSPAN  REPORT  NO.  ZQ-5 1 80-L-l ) '  /  MAI; 

*  31X, 'AVAILABLE  FROM  NTIS  (ACCESSION  NOS.  PB-24 1 692 , 3 , 4  AND  5)'  /  MAIN 

*  3 1 X , ' AND  APPENDIXES  A-I  TO  THE  ABOVE,  AVAILABLE  FROM  CALSPAN;'  /  MAIN 

*  3 1 X , ’ AND  REPORT  NO.  AMRL -TR-75- 1 4 .  AVAILABLE  FROM  NTIS.'  ////  MAIN 

*  31X, 'PROGRAM  ATB-II.  EXECUTED  ON  THE  CYBER  COMPUTER  SYSTEM,'  /  MAH 

*  31 X , ' AFSC  AERONAUTICAL  SYSTEMS  DIVISION,  WRIGHT  PATTERSON  AFB.'//  MAH 

*  //  4X.3A4,'  IRSIN-', 14,'  IRSOUT- ’ . 1 4 , '  RSTIME  -'.F8.4,  MAIN 

*  61X,  'CARDS  A '  /  / IX , 20A4/1X , 20A4/  / )  MAH 

IF  ( IRSIN.NE.O)  GO  TO  18  MAIN 


T010 
T01  l 
TO  1 2 
0030 
0040 
0050 
OOSO 
0070 
0080 
00  9  0 
0100 
0110 
0120 
0130 
01  NO 
0150 
0130 
0170 
01  SO 
0190 

02  :o 
0210 
0220 
0230 
0240 
0250 
0250 
0270 
0230 
0290 
0300 
0310 
T320 
T321 
T322 
T323 
T324 
T325 
T325 
T327 
T329 
T  323 
T330 
T33  1 
T332 
T3~3 
T334 
T335 
T336 
0450 
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INPUT  CARDS  A. 3, A. 4  AND  A.S. 

READ  <  5 . 1 2  >  UNITE ,UNITM, UNI TT, GRAV7V , G 

12  FORMAT <  3A4 , 4F 12 . 0  ) 

IF  <G.EQ.0.0>  G  -  DSORT!  GRAVTV( 1 )"*2*GRAVTY! 2  >**2+GRAVTY< 3 )**2  ) 
READ  <  5 , 1 3  >  NOINT.NSTEPS.OT.HO, HMAX , HMI N , NPRT 

13  FORMAT<2I4,4F8. 0/3612) 

WRITE  <6,14)  UNITL.UNITM.UNITT, GRAVTY , 

*  NDINT.NSTEPS.OT.HO.HMAX.HMIN 

14  FORMAT<5X, 'UNITE  »  ' . A4 , 5X . 1  UNI TM  -  1 . A4 . 5X . 1  UN  ITT  *  *,A4, 

*  5X,  GRAVITY  VECTOR  •  < 1 ,F9.4,' , * ,F9.4, '  ,  ' , F9 . 4 ,  '  >'// 

*  SX.'NDINT  •' ,I4,SX, ‘NSTEPS  -'.IS.SX.'DT  «-.F8.6. 

*  5X , ' HO  •' , F8.6.5X, ' HMAX  -  1 , F 3 . 6 . 5X , ' HMI N  -‘,F8.6> 

WRITE  <6,15)  < 1,1*1,36) ,NPRT 

15  FORMAT!  1 0  NPRT  ARRAY  1 /3X . 36 1 3/3X , 36  I  3 > 

NPRT 4  -  NPRT( 4  ) 

IF  (NPRT(4).LT.O)  GO  TO  SO 

CALL  INPUT  ROUTINES 

CALL  3  INP-.'T 
CALL  VINPUT 
CALL  S INPUT 
CALL  CINPUT 

PROGRAM  INITIALIZATION 

TIME  -  0.0 
CALL  INITAL 
GO  TO  19 

READ  INPUT  DATA  FROM  RESTART  TAPE  AND  WRITE  NEW  TAPE. 

THE  FIVE  FUNCTIONS  OF  SUBROUTINE  RSTART  ARE: 

1.  READ  INPUT  &  INITIALIZATION  RECORD  FROM  OLD  RESTART  TAPE. 

2.  WRITE  INPUT  &  INITIALIZATION  RECORD  ONTO  NEW  RESTART  TAPE. 

3.  REAO  TIME  POINT  RECORD  FROM  OLD  RESTART  TAPE. 

4.  READ  NEW  INPUT  DATA  FROM  INPUT  STREAM  FOR  RESTART. 

5.  WRITE  TIME  POINT  RECORD  ONTO  NEW  RESTART  TAPE. 

18  CALL  RSTART! 1 .IRSIN) 

CALL  RSTART! 4.5) 

NPRT4  -  NPRT! 4) 

19  IF  < IRSOUT.NE.O)  CALL  RSTART! 2 , I RSOUT ) 

INTEGRATION  LOOP  -  ADVANCE  TIME  BY  EITHER  INTEGRATING  BY 
SUBROUTINE  DINT  OR  BY  FETCHING  TIME  POINT  RECORD  FROM  RESTART  TAPE 

TIME  -  0.0 
ISTEP  -  0 


MAIN 

0500 

MAIN 

05.0 

MAIN 

052  0 

MAIN 

0530 

MAIN 

0540 

MAIN 

0550 

MA I  tl 

05  ;0 

MAIN 

0570 

MAIN 

0580 

MAIN 

0530 

MAIN 

0600 

MAIN 

0610 

MAIN 

0620 

MAIN 

0630 

MAPI 

0640 

MAIN 

0650 

MAIN 

0660 

MA.N 

0670 

MA  I  N 

0630 

MAIN 

06  30 

MAIN 

0/30 

MAIN 

0710 

MAIN 

0720 

MAIN 

0730 

MAI* 

0710 

MAIN 

0730 

MAIN 

0760 

MAIN 

0770 

MAIN 

0780 

MAIN 

0730 

MAIN 

0800 

MAIN 

0810 

MAIN 

0820 

MAIN 

0630 

MAIN 

0810 

MAIN 

0850 

MAIN 

08  60 

MAIN 

0870 

MAIN 

0830 

MAIN 

0830 

MAIN 

0900 

MAIN 

0910 

MAIN 

0920 

MAIN 

0930 

MAIN 

0940 

MAIN 

0950 

MAIN 

0960 

MAIN 

0970 

MAIN 

0930 

MAIN 

0990 
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20  IF  (IRSIN.EQ.O) 

GO  TO  23 

MAIN 

1000 

IF  ITIME.GT.RSTIME+0.5*DT)  GO  TO  23 

MAIM 

1010 

IF  ( DABS ( TIME-RSTIM£).LT.0.5*DT)  GO  TO  21 

MAIN 

1020 

CALL  RSTART I  3 , IRSIN ) 

MAIN 

1030 

GO  TO  24 

MAIN 

1040 

21  CALL  RSTARTI 4,5) 

MAIN 

1050 

IF  <  NPRT C  4  ) . LT . 

0)  GO  TO  SO 

MAIN 

1060 

23  CALL  OINT 

MAIN 

1070 

24  CALL  PRIPLT 

MAIN 

1090 

IF  I IRSOUT.NE.O) 

CALL  RSTARTI 5 , IRSOUT  ) 

MAIN 

1090 

MAIN 

1100 

OPTIONAL  OUTPUT 

MAIN 

1 110 

MAIN 

1 120 

NPRT3  -  <  NPRT<  3  ) 

.  EQ.  1  > 

MAIN 

1130 

IF  ( NPRTI 3  ) . GT. 1 >  NPRT3  ■  I MOD< I STEP . NPRTI 3 > > . £Q . 0  ) 

MAIN 

1140 

IF  INPRT3)  CALL 

PRINTI 6HMAIN30  ) 

MAIN 

1150 

MAIN 

1160 

TAPE  1  OUTPUT  - 

IDENTIFICATION  RECORD 

MAIN 

1170 

MAIN 

1180 

NBG1  -  NVEH  ♦  1 

MAIN 

1190 

NBG2  -  NVEH  *  NBAG 

MAIN 

1200 

IF  I ISTEP.EQ.O.AND.NPRTl 1  l.NE.O) 

MA I N 

1210 

*  WRITE 

II)  NSEG ,NJNT, NBLT, NBAG , NPL , 

MAIM 

1220 

• 

DATE .COMENT , VPSTTL , BDYTTL . 

MAIN 

1230 

* 

1 1  BLTTTLI  1,0 >,1-1,5). 0-1. NBLT), 

MAIN 

1240 

* 

II  PLTTLt I,J), I-1,5).J-1.NPL  >, 

MAIN 

1250 

• 

I <  BA6TTH I ,0 ), 1-1,5), 0-1 .NBAG), 

MAIN 

1260 

* 

ISEGIO), 0-1, NSEG), 

MAIN 

1 270 

• 

I  JOINT! J ) , J-l , NONT ) , 

MAIN 

1290 

* 

(CGSIO  >,0-1 .NSEG), 

MAIN 

1290 

* 

(0S<0),0-1,N0NT>, 

MAIN 

1300 

* 

II  B01  1,0), 1-1,3), 0-1, NSEG), 

MAIN 

1310 

• 

II  B0(  I, J), 1-4,6), 0*1, NSEG), 

MAIM 

1330 

* 

(I  BD1  1 ,0  ), 1-1 ,3) ,0-NBGl ,NBG2), 

MAIN 

1330 

« 

1 1  BELT! 1,0), 1-1,6), 0-1, NBLT), 

MAIN 

1340 

• 

l(PL(I,0).I-l,17),0-l,NPL> 

MAIN 

1350 

NPRTI  -  ( NPRTI 1 

).E0.1> 

MAIN 

1350 

IF  CNPRTlll.GT.l)  NPRTI  -  I  MODI  I  STEP , NPRTI I  )  > . EO. 0 > 

MAIN 

1370 

MAIN 

1330 

TAPE  l  OUTPUT  - 

TIME  POINT  RECORD 

MAIN 

1390 

MAIN 

1400 

IF  I NPRTI  )  WRITE 

11)  TIME, (SEGLPI  I, NVEH), 1-1,3), 

MAIN 

1410 

• 

KOI  1,0, NVEH), 1-1,3), 0-1, 3), 

MAIN 

1420 

« 

It SEGLPI 1,0), 1-1,3), 0-1 .NSEG), 

MAIN 

1430 

• 

<1 SEGLPI I ,0  > , I • 1 , 3 ) , 0-NBG 1 , NBG2  > , 

MAIN 

1440 

• 

(II  OIK, l,0),K-l, 3), 1-1,3), 0-1, NSEG), 

MAIN 

1450 

* 

111  DIK,I,J),K-1,3),I-1,3),J-NBG1, NB62 ) , 

MAIN 

1450 

• 

11  BDI 1,0  ), I-4,6),0-NBGl , NBG2  ) 

MAIN 

1470 

• 

I ITPTSI 1,0 >,1-1,6 >,0-1, NBLT) 

MAIN 

1480 

NPRT2  -  I NPRTI 2 

).EQ.l ) 

MAIN 

1490 
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:F  ( NPRT< 2 >.GT. 1 >  Nf  <T2  -  (  MOD< I  STEP . NPRT< 2 > > . EQ . 0  ) 
IF  (NPRT2  >  CALL  ELTIME (2,1  > 

ISTEP  -  ISTEP+1 
IF  < ISTEP. LE.NSTEPS)  GO  TO  20 
50  IF  <NPRT4.GT.01  ENO  FILE  8 

IF  ( NPRT( 4  ) . EQ . 0  .OR.  NPRT< 4 > . EQ . 4  1  GO  TO  60 
PRDT  -  1000. 0*DT 
CALL  POSTPR  (PROT) 

IF  ( NPRT2  >  CALL  ELTIME  <2,1  ) 

60  IF  ( .N0T.NPRT2 )  CALL  ELTIME  (2.1) 

STOP  1 
ENO 


MAIN  1500 
MAIN  1510 
MAIN  1520 
MAIN  1530 
MAIN  1540 
MAIN  1550 
MAIN  1560 
MAIN  1570 
MAIM  1580 
MAIN  1530 
MAIN  1600 
MAIN  1610 
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SUBROUTINE  CONTCT 


REV  19  10/23/79 

CONTROLS  THE  CALLING  OF  SUBROUTINES  REQUIRED  TO  COMPUTE  THOSE 
EXTERNAL  FORCES  AND  TORQUES  ACTING  ON  THE  80DV  SEGMENTS. 


IMPLICIT  REAL'S  (A-H.O-Z) 

COMMON/CONTRL /  TIME, MSEC, NJ NT, NPL.NBLT, NBAG , NVEH, NSRND , 

*  NS , NQ.NSD , NFLX , NHRNSS , NWINDF , NJNTF ,NPRT<  36  1 

COMMON /OBARTZ/  MNPLt  30>,MN8LT<  8 > .MNSEGf  30>,MNBAG(  6). 

*  MPL<3,5,30),MBLT(3,5,8),MSEG(3,S,30) , MBAG( 3,10,6), 

*  NTPL (  5,30), NTBLT!  5.8),NTSEG<  5,30) 

COMMON/FORCES/  PSF! 7, 30  ) . 8SF ( 4 , 20  ) . SSF ( 10,20), BAGSF! 3,20  > . 

*  PROMT!  6.30), NPANEL ( 5 ) , NPSF . NBSF , NSSF , NBGSF 
COMMON /TA8LES/MXNT I .MXNTB .MXTB 1 . MXT82 . NT  I ( 50 )  .NTAB! 500 ) ,TAB< 2000  > 
COMMON /HRNESS/  BAR! 1 5 , 1 00 ) . SB  < 100).BBDOT! 1 00  ) . PLOSS! 2 , 100), 

*  XLONG<20),HTIME(2). I3AR( 5. 1 00 > , NL ( 2 , 1 00 > . 

*  NPTSPBI 20 > .NPTPLYt 20 ) . NTHRNS! 20 ) , NBLTPH! 5  ) 

COMMON /WINOFR/  WTIME( 30  > , IWINO! 30 ) ,MWS£G( 5 , 30  > 

CALL  ELTIME! 1,12) 

NPSF  «  0 
NBSF  *  0 
NSSF  »  0 

IF  INPL.LE.O)  GO  TO  21 

CALL  PLELP  ROUTINE  FOR  EACH  ALLOWED  PLANE-SEGMENT  CONTACT. 

DO  20  J-l.NPL 

IF! MNPL  (  0 ) . EQ . 0 )  GO  TO  20 

KPL  -  MNPL ( J  > 

00  19  I-l.KPL 
NPSF  -  NPSF+1 
Ml  -  MPLU.I.J) 

M2  •  NPLI2.I.J) 

M3  -  MPL( 3 , 1 ,0  ) 

NT  »  NTPL< 1 ,0  ) 

JT  -  NTAB! NT) 

TAB! OT )  -  0.0 

19  CALL  PLELP! M2, M3, Ml, J. NT) 

20  CONTINUE 

21  IF! NBLT.LE  .0  >  SO  TO  41 

CALL  BELTRT  ROUTINE  FOR  EACH  ALLOWED  BELT-SEGMENT  CONTACT. 

DO  30  J-l ,N8LT 
IF!MNBLT(J).£Q.O)  GO  TO  30 
KBLT  *  MNBLT<0> 

00  29  IM.KBLT 
NBSF  •  NBSF ♦ 1 
Ml  -  MBIT! 1,1,0) 

M2  •  MBLT! 2,1,0) 


CONTCT 

CONTCT 

CONTCT 

CONTCT 

CONTCT 

CONTCT 

CONTCT 

CONTCT 

CONTCT 

CONTCT 

CONTCT 

CONTCT 

CONTCT 

CONTCT 

CONTCT 

CONTCT 

CONTCT 

CONTCT 

CONTCT 

CONTCT 

CONTCT 

CONTCT 

CONTCT 

CONTCT 

CONTCT 

CONTCT 

CONTCT 

CONTCT 

CONTCT 

CONTCT 

CONTCT 

CONTCT 

CONTCT 

CONTCT 

CONTCT 

CONTCT 

CONTCT 

CONTCT 

CONTCT 

CONTCT 

CONTCT 

CONTCT 

CONTCT 

CONTCT 

CONTCT 

CONTCT 

CONTCT 

CONTCT 

CONTCT 

CONTCT 


0010 

0020 

0030 

0040 

0060 

0060 

0070 

0030 

0090 

0100 

0110 

0120 

0130 

0140 

0150 

0160 

0170 

0180 

0130 

0200 

02)0 

0220 

0230 

0240 

0250 

0260 

0270 

0280 

0290 

0300 

0310 

0320 

0330 

0340 

0350 

0360 

0370 

0380 

0390 

0400 

0410 

0420 

0430 

0440 

0450 

0460 

0470 

0490 

0490 

0500 
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M3  -  MBLT( 3 , 1 ,0  > 

NT  -  NTBLTt l,J> 

JT  -  NTABtNT) 

TAB< JT)  -  0.0 
NF  •  NTABt NT  +  5  > 

IF  (NF.NE.O)  JT  »  NTAB( NT*6 ) 

IF  (NF.NE.O)  TAB( JT  >  -  0.0 

29  CALL  BELTRT(M2.M3.M1.J.NT) 

30  CONTINUE 

CALL  SEGSEG  ROUTINE  FOR  EACH  ALLOWED  SEGMENT-SEGMENT  CONTACT. 

41  DO  SO  J-l.NSEC 

IF ( MNSEGt J ) . EO.O )  GO  TO  SO 
KSEG  •  MNSEG(J) 

DO  49  I«1.<SEG 
NSSF  •  NSSr ♦  1 
Ml  -  MSEG(  1 , 1 ,  J  > 

M2  •  MSEC! 2 , I , J  > 

M3  -  MSEC! 3. I, J> 

NT  ■  NTSEGt  l.J) 

JT  -  NTABtNT) 

TAB<  JT  )  -  0.0 

49  CALL  SEGSEG(J.M1.M2.M3.NT) 

50  CONTINUE 

CALL  AIRBAG  ROUTINE  FOR  ALLOWEO  BAG-SEGMENT  CONTACTS,  IF  ANY. 
IF  (NBAG.NE.O)  CALL  AIRBAG 

CALL  WINDY  ROUTINE  FOR  WIND  FORCES  ON  EACH  SEGMENT. 

DO  60  J-l.NSEG 

IF  ( MUSEC< 1 . J  > . EQ. 0  )  GO  TO  60 
Ml  ■  MVSEC( 2 , J  ) 

M2  •  MWSEGt 3 , J  ) 

M3  -  MWSEGt  4 , J ) 

NT  -  MWSEGt  5 . J ) 

CALL  WINDY  (  J .Ml ,M2 .M3 . NT  ) 

60  CONTINUE 

CALL  HBELT  ROUTINE  FOR  EACH  HARNESS-BELT  SYSTEM. 

IF  <  NHRNSS. LE . 0 )  GO  TO  99 
JI  -  1 
KNLO  ■  0 

00  70  I -1, NHRNSS 

IF  (NBLTPHt I >.LE.0>  GO  TO  70 
J2  -  Jl  ♦  NBLTFHt I )  -  1 
CALL  HBELT  ( J 1 ,  J2 , KNLO . 0  ) 


CONTCT 

CONTCT 

CONTCT 

CONTCT 

CONTCT 

CONTCT 

CONTCT 

CONTCT 

CONTCT 

CONTCT 

CONTCT 

CONTCT 

CONTCT 

CONTCT 

CONTCT 

CONTCT 

CONTCT 

CONTCT 

CONTCT 

CONTCT 

CONTCT 

CONTCT 

CONTCT 

CONTCT 

CONTCT 

CONTCT 

CONTCT 

CONTCT 

CONTCT 

CONTCT 

CONTCT 

CONTCT 

CONTCT 

CONTCT 

CONTCT 

CONTCT 

CONTCT 

CONTCT 

CONTCT 

CONTCT 

CONTCT 

CONTCT 

CONTCT 

CONTCT 

CONTCT 

CONTCT 

CONTCT 

CONTCT 

CONTCT 

CONTCT 


0510 

0S20 

0S30 

0S40 

0550 

0S60 

0570 

0580 

0590 

0600 

0610 

0620 

0630 

0640 

0650 

0S60 

0670 

0680 

0690 

0700 

0710 

0720 

0730 

0740 

0750 

0760 

0770 

0780 

0790 

0800 

0810 

0820 

0830 

0840 

0850 

0860 

0870 

0880 

0890 

0900 

0910 

0920 

0930 

0940 

0950 

0960 

0970 

0980 

0990 

1000 
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J1  -  02*1 
70  CONTINUE 
99  CALL  ELTIME (2.12) 
RETURN 
END 


CONTCT 

CONTCT 

CONTCT 

CONTCT 

CONTCT 


1010 

1020 

1030 

1040 

1050 
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SUBROUTINE  FDINIT 

FDINIT 

0010 

c 

REV  19  06/08/79 

FDINIT 

0020 

c 

REPLACES  CODE  PREVIOUSLV  IN  SUBROUTINES  FINPUT  AND  HINPUT. 

FDINIT 

0030 

c 

FROM  FIVE  FUNCTION  NUMBERS  IN  NF  ARRAV 

FDINIT 

0040 

c 

1.  SET  UP  KTITLE 

FDINIT 

0050 

c 

2.  SET  UP  NTAB  AND  TAB  ARRAVS 

FDINIT 

0050 

c 

3.  INCREMENT  COUNTERS  MXNTB  AND  MXTB2 

FDINIT 

0070 

c 

FDINIT 

0080 

IMPLICIT  REAL*8  <A-H.O-Z> 

FOINIT 

0090 

COMMON/TABLES/  MXNTI .MXNTB ,MXTB 1 .MXTB2 ,NT I ( SO ) .NTAB1 500 ) ,TAB<  2000  ) 

FDINIT 

0100 

COMMON /TEMP VS/  JTITL£(5,51  ) , NF I  5 > , MS ( 3 > . KTI TLE < 3 1  1 

FDINIT 

0110 

c 

NOTE:  THIS  IS  SHARED  BV  SUBS  CINPUT,  FINPUT.  HINPUT  AND  FDINIT. 

FDINIT 

0120 

REAL  JTITLE, KTITLE 

FDINIT 

0130 

J1  -  MXTB2  ♦  1 

FDINIT 

0140 

NT  «  MXNTB  ♦  1 

FDINIT 

0150 

NTAB(NT)  «  J1 

FDINIT 

0160 

NT  -  NT* 1 

FDINIT 

0170 

DO  56  L-1,5 

FDINIT 

0180 

NX  •  I ABS<  NF ( L  >  > 

FDINIT 

0190 

NTAB!  NT )  ■  0 

FDINIT 

0200 

IF  (NX.EQ.O)  GO  TO  56 

FDINIT 

0210 

NTAB(NT)  -  ISIGN(NTI(NX),NF(L>) 

FDINIT 

0220 

DO  51  KK  -  1.5 

FDINIT 

0230 

KJ  -  5*L*KK*1 

FDINIT 

0240 

51 

KTITLE! KJ )  -  JTITLE ( KK , NX  ) 

FDINIT 

0250 

IF  <  NTI ( NX  )  . NE . 0 1  GO  TO  56 

FDINIT 

0260 

WR ITE ( 6 . 54 )  NX 

FDINIT 

0270 

54 

FORMAT  <‘0  FUNCTION  NO. ‘,14,’  HAS  NOT  BEEN  DEFINED. 

FDINIT 

0280 

1 

•  •  PROGRAM  TERMINATED. ' ) 

FDINIT 

0290 

STOP  15 

FDINIT 

0300 

56 

NT  «  NT* 1 

FDINIT 

0310 

c 

FDINIT 

0320 

c 

INITIALIZE  TAB  ARRAV  TO  ZERO  EXCEPT  FOR  DMAX ,  DINER.  FDMAX . 

FDINIT 

0330 

c 

FDINIT 

0340 

02  •  01*29 

FDINIT 

0350 

DO  57  00-01, J2 

FDINIT 

0360 

57 

TAB! 00 >  -  0.0 

FDINIT 

0370 

NX  ■  NTA8! NT-51 

FDINIT 

0380 

IF  1NX.LT.0)  GO  TO  58 

FDINIT 

0390 

TABU  1*8)  *  DABS!  TAB!  NX*1  )) 

FDINIT 

0400 

IF  !TABINX*2).NE.0.0>  TAB<01*8>  -  OABS! TAB! NX*2  1  ) 

FDINIT 

0410 

DX  -  TAB! J 1*8 ) 

FDINIT 

0420 

TAB! 01*10)  •  EVALFD! DX.NX. 1 ) 

FDINIT 

0430 

NX  -  NTAB! NT-4) 

FDINIT 

0440 

IF  ! NX . LE . 0  >  GO  TO  58 

FDINIT 

0450 

TAB! 01*9)  -  DABS! TAB! NX* 1) > 

FDINIT 

0460 

IF  !TAB!NX*2).NE.0.0)  TABU1+9)  -  DABS!  TAB!  NX*2  ) ) 

FDINIT 

0470 

58 

J1  -  02*1 

FDINIT 

0480 

MXNTB  -  NT-1 

FDINIT 

0490 

MXTB2  -  01-1 

FDINIT 

0500 
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IF  <  MXTB2.6T.2000  )  WRITE  (6.62)  MXTB2  FDINIT 

62  FORMAT  CO  ERROR  IN  SUBROUTINE  FOINIT.  SIZE  OF  TAB  ARRAV  -'.18//  FDINIT 

•  PROGRAM  TERMINATED. '  )  FDINIT 

IF  ( MXNTB. GT. SOO )  WRITE  (6,63)  MXNTB  FDINIT 

63  FORMAT  ('0  ERROR  IN  SUBROUTINE  FDINIT,  SIZE  OF  NTAB  ARRAV  -',18//  FDINIT 

•  PROGRAM  TERMINATED. '  )  FOINIT 

IF  ( MXTB2 . GT . 2000  .OR.  MXNTB . GT . SOO >  STOP  16  FDINIT 

RETURN  FOINIT 

END  FDINIT 


0510 

0520 

0S30 

0S40 

05S0 

0560 

0570 

05B0 

0590 
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DOUBLE  PRECISION  FUNCTION  FNTERPI THETA, PHI , NT > 

REV  19  08/0S/78 

COMPUTES  THE  RESTORING  TORQUE  OF  A  JOINT  AS  A  FUNCTION  OF  THE 
FLEXURE  ANGLE  (THETA)  AND  THE  AZIMUTH  ANGLE  (PHI)  AS  DEFINED  BY 
FUNCTION  NO.  NT 

ASSUMES  0  <  THETA  <  PI 
-PI  <  PHI  <  PI 

DATA  IN  TAB  ARRAY  CONTAINS  NTHETA.NPHI  FOLLOWED  BY 
TWO  DIMENSIONAL  ARRAY  OF  FUNCTIONAL  VALUES  ( NTHETA  >  0) 

OR  POLYNOMIAL  COEFFICIENTS  (NTHETA  <  0)  FOR  EQUALLY 
SPACED  VALUES  OF  PHI . 

THETA( I  )  ■  (  1-1  >*PI/(NTHETA-l >  FOR  IM. NTHETA 
PH  I  ( J  )  -  -P!  +  ( J-l >*2*PI/NPHI  FOR  0*1,NPHI 
F(THETA.PI)  -  F(THETA.-PI) 

SUBROUTINE  EVALUATES  G 1 ( THETA  >  »  F ( THETA, PH  I < J  )  > 

G2( THETA  >  -  F ( THETA , PH  I ( J* 1 > > 

FOR  PHI ( J  >  <  PHI  <  PHI ( J+ 1  ) 

BY  LINEAR  INTERPOLATION  OR  POLYNOMIAL  EVALUATION  AND  THEN  LINEAR 
INTERPOLATES  BETWEEN  G1  AND  G2  TO  OBTAIN  F ( THETA . PH  I  ) . 

IF  F  <  0.  F  IS  SET  TO  ZERO.  THEREFORE  A  DEAD  SAND  IS  OBTAINED 
BY  NEGATIVE  VALUES  IN  THE  TABLE. 

IMPLICIT  REAL«8  (A-H.O-Z) 

COMMON/CNSNTS/  P I , RAD  I AN ,G , TH I RD , EPS( 24 ) . 

*  UNITL.UNITM.UNITT , GRAVTY (  3  > 

COMMON /TABLES/MXNT I ,MXNTB,MXTB1,MXTB2,NTI(50 ) ,NTAB( 500 ) ,TAB( 2000  > 

I  ERROR  •  0 

IF  (PHI.LT.-PI >  IERROR  »  1 
IF  (PHI.GT.  PI >  IERROR  »  2 
IF  (THETA. LT. 0. 0 )  IERROR  «  3 
IF  (THETA. GT. PI  )  IERROR  -  4 

IF  (  IERROR. NE.O)  WRITE  (6,11)  I  ERROR , THETA , PH  I , NT 
11  FORMAT (  ' 0  IMPROPER  ARGUMENTS  TO  FUNCTION  FNTERP .  ERROR  CODE  •■,14/ 

*  '0  THETA  -'.625. 15,  ’  PHI  ■'.G25.15,'  NT  -',16) 

IF  ( IERROR. NE.O)  STOP  36 

NF  ■  NTI ( NT  >  ♦  5 
NTHETA  «  TAB(NF) 

NPH I  •  TAB(NF+1  ) 

DETERMINE  INDEX  AND  INTERPOLATION  PARAMETERS  FOR  PHI. 

XNP  -  (PHI+PI )/(2.0*PI >*TA8( NF+ 1  ) 

NP 1  -  XNP 
NP2  -  NP1+1 

IF  (NP2.GE.NPHI  >  NP2  ■  0 
RP2  -  XNP  -  DFL0AT( NP 1  ) 

RP1  -  1.0  -  RP2 


FNTERP 

0010 

FNTERP 

0020 

FNTERP 

0030 

FNTERP 

0040 

FNTERP 

0050 

FNTERP 

0060 

FNTERP 

0070 

FNTERP 

0080 

FNTERP 

0090 

FNTERP 

0100 

FNTERP 

0110 

FNTERP 

0120 

FNTERP 

0130 

FNTERP 

0140 

FNTERP 

0150 

FNTERP 

0160 

FNTERP 

0170 

FNTERP 

0180 

FNTERP 

0190 

FNTERP 

0200 

FNTERP 

0210 

FNTERP 

0220 

FNTERP 

0230 

FNTERP 

0240 

FNTERP 

0250 

FNTERP 

0260 

FNTERP 

0270 

FNTERP 

0280 

FNTERP 

0290 

FNTERP 

0300 

FNTERP 

0310 

FNTERP 

0320 

FNTERP 

0330 

FNTERP 

0340 

FNTERP 

0350 

FNTERP 

0350 

FNTERP 

0370 

FNTERP 

0380 

FNTERP 

0390 

FNTERP 

0400 

FNTERP 

0410 

FNTERP 

0420 

FNTERP 

0430 

FNTERP 

0440 

FNTERP 

0450 

FNTERP 

0460 

FNTERP 

0470 

FNTERP 

0480 

FNTERP 

0490 

FNTERP 

0500 
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NTH  -  IA8S( NTHETA ) 

FNTERP 

0510 

I P  1  ■  NF ♦ 1  *NP 1 "NTH 

FNTERP 

0520 

I P 2  -  NF* 1 *NP  2*NTH 

FNTERP 

FNTERP 

0530 

0540 

DETERMINE  INDEX  AND  INTERPOLATION  PARAMETERS  FOR  THETA. 

FNTERP 

FNTERP 

0550 

0560 

IF  (NTHETA. LT.O)  GO  TO  20 

FNTERP 

0570 

XNT  •  THETA/PI*(TAB(NF )-l .0 ) 

FNTERP 

0580 

NT1  -  XNT 

FNTERP 

0590 

RT2  -  XNT  -  OFLOAT(NTl) 

FNTERP 

0600 

RT1  ■  1.0  -  RT2 

FNTERP 

0610 

IT1  -  IP1  ♦  NT1 

FNTERP 

0620 

IT2  -  IP2  ♦  NT1 

FNTERP 

0630 

G 1  -  RT1 *TAB< IT1 ♦ 1 )  ♦  RT2*TAB( IT1+2  > 

FNTERP 

0640 

G2  «  RT1 *TAB< IT2* 1 )  ♦  RT2"TAB< IT2  +  2  > 

FNTERP 

0650 

GO  TO  23 

FNTERP 

FNTERP 

0660 

0670 

COMPUTE  FOR  POLYNOMIALS  IN  THETA  FOR  FIXED  PHI. 

FNTERP 

FNTERP 

0680 

0690 

20 

NPOLY  •  -NTHETA-1 

FNTERP 

0700 

IT1  -  IP1  ♦  NPOLY  +  2 

FNTERP 

0710 

IT2  •  IP2  ♦  NPOLY  +  2 

FNTERP 

0720 

THETA1  •  THETA  -  TAB(IP1*1> 

FNTERP 

0730 

THETA2  «  THETA  -  TAB< IP2*1  ) 

FNTERP 

0740 

G 1  -  0.0 

FNTERP 

0750 

G2  -  0.0 

FNTERP 

0760 

DO  21  I - 1  . NPOLY 

FNTERP 

0770 

IT1  -  IT1-1 

FNTERP 

0780 

IT2  -  IT2-1 

FNTERP 

0790 

G 1  »  THETA1 *( TAB( IT1 )*G1 ) 

FNTERP 

0800 

21 

G2  »  THETA2*(TAB( IT2)+G2) 

FNTERP 

0810 

23 

FNTERP  -  RP 1 *G 1  ♦  RP2*G2 

FNTERP 

0820 

IF  (FNTERP.LT. 0.0)  FNTERP  *  0.0 

FNTERP 

0830 

RETURN 

FNTERP 

0840 

END 

FNTERP 

0850 
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SUBROUTINE  FRCDFL  ( D  .  RATE ,M, N , FRCOF , ELOS 

13  ) 

FRCDFL 

0010 

c 

REV  19  10/19/79 

FRCDFL 

0020 

c 

EVALUATE  FORCE  DEFLECTION  FUNCTION  AT  POINT  D,  WHERE  DEFINITION 

FRCDFL 

00  30 

c 

OF  FUNCTION  IS  CONTROLLED  BY  M  INDEX  OF 

NTA3  ARRAY. 

FRCDFL 

0040 

c 

DERIVATIVE,  FUNCTION  OR  INTEGRAL  IS  EVALUATED  AS  N  ■  0,1  OR  2. 

FRCDFL 

0050 

c 

NTAB(M)  -  INOEX  TO  TAB  ARRAY  FOR 

REAL  DATA 

FRCDFL 

0050 

c 

NTAB( M* 1  )  -  INDEX  TO  TAB  ARRAY  FOR 

BASE  FUNCTION 

FRCDFL 

0070 

c 

NTAB(M*2>  -  INDEX  TO  TAB  ARRAY  FOR 

INERTIAL  FUNCTION,  IF  ANY 

FRCDFL 

OOUO 

c 

FRCDFL 

0090 

c 

ASSUMES  0  <  OG  <  DCUBIC  <  DREF  <  DMAX 

FRCDFL 

0100 

c 

BUT  ANY  <  MAY  BE  LESS  THAN  OR 

EQUAL  TO 

FRCDFL 

0110 

c 

FRCDFL 

0120 

IMPLICIT  R£AL«8(A-H,0-Z> 

1 RCDFL 

ono 

COMMON /TABLES/ MX NT I , MXNTB , MXTB 1 , MXT32 , NT! ( 50  ) , NTABf 500  )  ,TAB(  2000  ) 

FRCDFL 

0140 

F  -  0.0 

FRCDFL 

0150 

ELOSS  -  0.0 

FRCDFL 

0150 

L  -  NTAB(M) 

FRCDFL 

0170 

TA8<  L  )  •  D 

FRCDFL 

0  30 

IF  (D.LT.0.0)  GO  TO  99 

FRCDFL 

0190 

JMAX  »  TAB( L*8  > 

FRCDFL 

0200 

IF  (D.LT.D.1AX)  GO  TO  10 

FRCDFL 

0210 

c 

FRCDFL 

0220 

c 

DMAX  <  D  ,  USE  MAX  VALUE 

FRCDFL 

0230 

c 

FRCDFL 

0240 

IF  ( N-l >  99,9,99 

FRCDFL 

0250 

9 

FDMAX  -  TAB<  L ♦ 1 0  ) 

FRCDFL 

0250 

F  *  FDMAX 

FRCDFL 

0270 

GO  TO  40 

FRCDFL 

0230 

10 

DREF  »  TAB(L*7> 

FRCDFL 

0290 

IF  <  D  .  GE . DREF )  GO  TO  30 

FRCDFL 

0300 

DCUBIC  -  TAB1L+6) 

FRCDFL 

0310 

IF  (DCUBIC. GE. DREF )  GO  TO  20 

FRCDFL 

0320 

IF  ( D . LE . DCUBIC )  GO  TO  20 

FRCDFL 

0330 

c 

FRCDFL 

0340 

c 

DCUBIC  <  D  <  DREF  ,  USE  CJBIC 

FRCDFL 

0350 

c 

FRCDFL 

0360 

LC  »  L ♦  1 4 

FRCDFL 

0370 

DCO  -  TAB<  L  +  1 8  > 

FRCDFL 

0380 

X  »  D-OCO 

FRCDFL 

0390 

IF  (N-l >  12,11,99 

FRCDFL 

0400 

c 

FRCDFL 

0410 

c 

USE  CUBIC  DEFINITION 

FRCDFL 

0420 

c 

FRCDFL 

0430 

1 1 

F  -  TAB(LC)  +  X  «< TAB( LC  +  1 >  +  X*(TAB( LC*2 >  +  X*TAS( LC  +  3  )  ) ) 

FRCDFL 

0440 

GO  TO  40 

FRCDFL 

0450 

c 

FRCDFL 

04  50 

c 

USE  DERIVATIVE  OF  CUBIC 

FRCDFL 

04/0 

c 

FRCDFL 

0430 

12 

F  -  TAB(LC+l)*X*(2.0*TAB(LC+2)+X*3.0*TAB(LC+3)> 

FRCDFL 

0490 

GO  TO  99 

FRCDFL 

0500 
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20 

DG  »  TA8( L  *5  > 

FRCDF. 

05.0 

IF  (D.LE.DG)  GO  TO  40 

FPXDFL 

0520 

c 

•RCDFL 

0530 

c 

DG  <  0  <  DCUBIC  .  SE  QUAORATIC 

FRCDF  i. 

0540 

c 

■rcdfl 

0550 

LQ  »  i.  +  ll 

FRCDFl 

0560 

X  *  0  OG 

FRCDF L 

0570 

IF  <  N-i  )  22,21,39 

FRCDFL 

0530 

FRCDFL 

C590 

c 

USE  QUADRATIC  DEFINITION 

FRCDFL 

06u0 

c 

FRCDFL 

0610 

21 

F  =  TAB< LQ >*X*< TAB< LQ*1 >+X*TAB< lO+2 > 

> 

"RCDF  . 

0620 

GO  TO  40 

•RCDF. 

0630 

c 

FRCDFL 

0640 

c 

USE  DERIVATIVE  OF  QUADRATIC. 

r RCDFL 

0650 

c 

FRCDFL 

06  5  0 

22 

F  -  TA8( LQ+ 1  )+X*2.0*TAB(LQ+2) 

FRCDFL 

06',0 

GO  TO  99 

FRCDFL 

0630 

c 

FRCDFl 

0690 

c 

DREF  <  D  <  DMAX ,  USE  BASE  FUNCTION 

FRCDFL 

0700 

c 

FRCDFL 

07  0 

30 

IF  (N-l  )  31.31,39 

-RCDFL 

0720 

31 

NB  ■  NTAB( M+ 1 : 

FRCDFL 

0730 

c 

FRCDFL 

0740 

c 

EVALUATE  BASE  FUNCTION 

FRCDFL 

0750 

c 

FRCDFL 

0750 

IF  (NB.GT.O)  F  »  E VALFDI D , NB , N ) 

r  RCDFL 

0770 

N I  -  NTAB(M*„> 

FRCDFL 

0730 

c 

FRCDF. 

0730 

c 

ADD  INERTIAL  FUNCTION  ,  IF  ANY 

FRCDF. 

0800 

c 

FRCDF. 

0810 

IF  (NI.GT.O)  F  -  F+EVALFDt D.NI ,N ) 

FRCDFL 

0820 

40 

IF  (N.NE.l  )  GO  TO  99 

FRCDFL 

0630 

c 

FRCDFL 

0340 

c 

COMPUTE  AND  ADD  RATE  DEPENDENT  FUNCTIONS, 

IF  ANY. 

FRCDFL 

0850 

c 

FRCDFL 

0850 

c 

CURRENT  RESTRICTIONS: 

FRCDFL 

0870 

c 

FRCDFL 

0830 

c 

1)  COMPUTED  FOR  N-l  <  FUNCTION  >  ONLY. 

FRCDFL 

0890 

c 

FRCDFl 

0900 

c 

2)  FUNCTION  NOS.  N+2.M+3  AND  M+4 

(  USED 

FOR  INERTIAL  SPIKE, 

FRCDFL 

0910 

c 

R  FACTOR  AND  G  FACTOR  FUNCTIONS)  MUST  BE  NEGATIVE  OR  ZERO, 

FRCDFL 

0920 

c 

I.E.,  THESE  FUNCTIONS  CANNOT  BE  USED 

IN  CONJUNCTION  WITH 

FRCDFL 

0930 

c 

THE  RATE  DEPENDENT  FUNCTIONS. 

FRCDFL 

0940 

c 

FRCDFL 

0950 

c 

3)  ASSUMES  THE  FUNCTIONAL  FORM 

FRCDFL 

095  J 

c 

FRCDFL 

0970 

c 

F(  D , D ' )  •  F 1 ( D  )  ♦  F2( D  )* 

F3(  D '  ) 

♦  F4(  D  '  > 

FRCDFL 

0980 

c 

FRCDFL 

0990 

c 

WHERE  F1(D  )  IS  OEFINED  BY  FUNCTION 

NTAB(M+1 >>0. 

FRCDFL 

1000 
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c 

I.E.,  NORMAL  FORCE  DEFLECTION  FUNCTION  WITH  NO 

r RCDFL 

101? 

c 

INERTIAL  SPIKE  FUNCTION  AND  DEFAULT 

VALUES 

FRCDF- 

1020 

c 

R*1  AND  G«0  (UNLOADING  AND  RELOADING 

SAME  AS 

CRCDFL 

1030 

c 

ORIGINAL  LOADING': 

FRCDF  L 

1040 

c 

FRCDF L 

1050 

c 

F2( 0  )  IS  DEFINED  BY  FUNCTION  NTAB(M+2X0, 

FRCDFL 

1050 

c 

IF  NTABf  M  +  2 )»0 ,  F 2 (  D  ) » 0  ; 

FRCDFL 

1070 

c 

FRCDFL 

1080 

c 

F3<  0 ' )  IS  DEFINED  BY  FUNCTION  NTAB(M+3X0, 

FRCDFL 

1090 

c 

IF  NTAB ( M+3  )*0 ,  F3(D'  ) -0 ; 

FRCDFl 

1100 

c 

FRCDFL 

1110 

c 

AND  F4<  D ‘  )  IS  DEFINED  BY  FUNCTION  NTABIM+4  XO, 

FRCDF!. 

1120 

c 

IF  NTAB (  M  +  4  > - 0  .  r‘4(  0  '  >  =  0. 

FRCDFL 

1 1  30 

c 

FRCDFL 

1140 

c 

NOTE:  FUNCTIONAL  FORM  CAN  BE  CHANGED  BY  REVISING 

PROGRAM 

FRCDF. 

1150 

c 

BETWEEN  STATEMENTS  40  AND  99. 

FRCDFL 

1 150 

c 

c  RCDFL 

1  1?0 

F  2 

-  0.0 

FRCDFL 

1130 

F  3 

»  0.0 

FRCDFL 

1190 

F  4 

«  0.0 

FRCDFL 

1200 

N2 

»  -NTABf M+2) 

FRCDFL 

1210 

N3 

«  -NTAB ( M+3  ) 

FRCDFL 

1220 

N4 

»  -NTAB ( M  +  4  > 

FRCDFL 

1230 

IF 

(N2.GT.0)  F 2  -  EVALFO  <0,  N2.N) 

FRCDFL 

1240 

IF 

(N3.GT.O)  F3  *■  EVALFD  <  RATE  ,  N3  ,  N  ) 

FRCDFL 

1250 

IF 

(N4.GT.O)  F  4  »  -VALFD  <  RATE , N4 . N  ) 

FRCDFL 

1230 

F  « 

F  ♦  F2  +  F3  ♦  F 4 

FRCDFL 

1270 

ELOSS  •  RATE*<  F2*F3+F4  ) 

FRCDFL 

1230 

99 

FRCDF  =  F 

FRCDFL 

1290 

RETURN 

FRCDFL 

1300 

END 

FRCDFL 

1310 
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SUBROUTINE  HBELT  I  J1 ,  J2.KNL0, IND  ) 

C  REV  19  10/23/73 

ARGUMENTS: 

01,  J2  -  FIRST  AN 1  LAST  INDEX  FOR  BELTS. 

KNLO  -  ZERO  VAL  E  FOR  KNL  INDEX. 

IND  -  0:  CALL  .S  FROM  SUBROUTINE  CONTCT 
l:  CALL  IS  FROM  SUBROUTINE  UPDATE 

IMPLICIT  R£AL*8  (A-H.O-Z) 

COMMON/CNTSRF /  PL  I 17,30  >,BELT< 20 , 8  ) . TPTS( 6 . 8 > , BD{ 2* , 40  ) 

COMMON/ SGMNTS/  D<  3,3,30 ) , VME G I  3 , 3  0  >  ,WMEGD( 3,30  ) . U 1 ( 3 , 30  ) , U2<  3 , 30  > , 

*  SEGLPI  3 , 30 ),SEGLV<3,iO>,SEGLA(3,30),NSVM(30) 

COMMON/ TABL'S/  MXNTI , MXNT8 , MXTB 1 .MX  TB2 . NTI ( 50  > . NTAB<  500  > .TAB! 2000  ) 
COMMON/HRNESS/  3ARI 1  , 1 00 i . BB ( 1 00  > . 5BDOTI 100  > , PLOSS<  2 . 1  DO  )  , 

*  XLCNGi  D ),rtTIME< 2  ) , I3ARI 5. 100 > ,NL< 2, 100  ) , 

*  NPTSPBI  20  )  , NPTPLYI  20  )  ,  NTHRNS(  20  ) ,  NBLTPHI  5  >• 

THIS  COMMON /TEMP VS/  13  SHARED  BY  HPTORB ,  HBPLAY,  HBELT  AND  KSETC. 
COMMON /TEMP VS/  B<  3 . 3 . 3 ) , St  3 , 3 ) , T( 3  > , R( 3 > . V( 3 ) ,T1 ( 3 ) , T2( 3 ) , 

*  EI3,3,50).EDOT<3,50>,FCE(3.50>,FRI3,50),ZR<3,50), 

*  TR<3,50),Ut3,50),PTLOSS(2.50),BL(50),FB(50),FP(50>. 

*  OLDBB<100),RHS(3,S4).C(3.3.200),IJK(54,54) 

CALL  ELTIME  (1,38) 

NTP  *  0 
K2  »  0 

DO  31  JB-J1.02 

IF  INPTPLYIJ8>.LE.0>  GO  TO  31 


FIRST  LOOP  ON  K 

COMPUTE  ZIK),ZR(K),E3<K),UIK-1 ) , BL  (  K- 1 ),FB(K-1 ) 

NEED  NLIK>,B8IK-1 ) 

NOTE:  AN  INDEX  X-l  REFERS  TO  SELT  SEGMENT  BETWEEN  K-l  AND  <. 

XI  *  K2  +  1 

K2  «  KZ  *  NPTPLY(JB) 

DO  20  K-KI.K2 
KNL  »  KNLO  ♦  K 
KI  -  NL<  l  , KNL  ) 


HERE  K  IS  INDEX  OF  POINTS  IN  PLAY  ON  EACH  HARNESS 
KNL  IS  INOEX  OF  ALL  POINTS  IN  PLAY 
KI  IS  INDEX  OF  ALL  POINTS 

KS  »  IABSt I  BARI  1 ,KI  )  ) 

IF  (KS.GT.100)  NTP  »  1 
IF  <KS.GT.100>  KS  -  MODtKS.lOO) 

KE  =»  I  BAR  (  2  ,  K I  > 

CALL  OOT31  < D< 1 . 1 ,KS >,BAR( 4,Kl >,T1 > 

CALL  DOT31  I  D<  1  , 1  ,  KS  ,  SARI  7  ,  K 1)  ,  T2  > 

DO  11  J-1,3 

Rt J )  -  VIO  > 


HBELT 

0010 

HBELT 

0020 

HBELT 

0030 

HBELT 

0040 

HBELT 

0050 

HBELT 

OOP  0 

HBELT 

0070 

HBELT 

0080 

HBELT 

0090 

HBEL1’ 

0100 

HBELT 

0110 

HBELT 

0120 

HBE  L  T 

0130 

HBELT 

0140 

HBELT 

0150 

HBELT 

0150 

HBELT 

01  t; 

HBELT 

013., 

HBELT 

0190 

HBELT 

02  DO 

HBELT 

0210 

HBELT 

0220 

HBELT 

0250 

HBELT 

02«0 

HBELT 

0250 

HBELT 

026  0 

HBELT 

0270 

HBELT 

0230 

HBELT 

0290 

HBELT 

0300 

HBELT 

0310 

HBElt 

0220 

HBELT 

0330 

HBEl  T 

0340 

HBELT 

0350 

HBELT 

0360 

HBELT 

0370 

HBELT 

0330 

HBELT 

039D 

HBELT 

0400 

H3ELT 

0410 

HBELT 

0420 

HBELT 

0430 

HBELT 

0440 

HBELT 

0450 

HBELT 

0460 

HBELT 

0470 

HBELT 

0480 

HBELT 

0490 

HBELT 

0500 
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VIJ)  »  BAR( 0*3 , KI  )  ♦  BARI  J+6 , KI  ) 

TR( 0 , K  >  -  T1(0) 

ZRIO.K)  -  Tl< J  >  +  T2< J  ) 

S  I  J.2)  -  SIJ.l  ) 

11  S  (0,1)  -  SEGLP I J , KS  )  ♦  ZRI J , K  ) 

CALL  CROSS  ( WMEGI 1 , KS ) , V , T ) 

IF  (KE.EO.O)  GO  TO  12 

CALL  MAT31  ( BD( 7 ,KE ) . BARI  4 , KI  )  ,T2 > 

CALL  OOT31  <  DU  .  1  ,KS  )  .T2.T1  > 

12  DO  13  0-1.3 

T( 0 )  ■  T<  J )  ♦  BARI J+12.KI  ) 

13  E  (  J  ,  3  ,  K  )  =  TKOI 

CALL  OOT31  (D< 1 , l , KS  > , T , V  > 

DO  14  0-1,3 

14  V<  0  )  »  V<  0 )  ♦  SEGLVIO ,KS  > 

FB<  K  )  •  0.0 

F P ( K  )  *  0.0 

IF  I K.E0.K1 >  GO  TO  20 
DO  15  0-1,3 

15  U<  0  ,  K-  1  )  -  S<0, 1  )  -  SI  J  ,  2  ) 

BLIK-1)  -  0SQRT(U( l.K-l  )-’2  ♦  U(2,K-1>**2  +  UI3,K-1>**2> 

DO  16  0-1,3 

16  UIJ.K-l)  -  IHO.K-l  >/3L(K-l  ) 

STRAIN  -  (BLIK-l  >/BB(KNL-l  ))  -  1.0 
IF  (STRAIN. LT. 0.0)  STRAIN  -  0.0 
NT  -  NL( 2.KNL  ) 

BLDOT  «  U(  1 ,K-1  )*<  VI  1  )-R<  1  )  ) 

*  ♦  UI2.K-1  )*( V( 2  )-R<  2  )  ) 

*  ♦  U(  3. K-l  )*(  V(  3  >-R(  3  )  ) 

STRDOT  -  < BB( KNL-l >*BLDOT-BL( K-l )*68DOT(  KNL-1 ) )/BB!  KNL-I  )**2 
CALL  FRCDFL  (  STRA I N , STRDOT . NT , 0 , FPK . E LOSS  ) 

CALL  FRCDFL  (  STRA I N . STRDOT , NT , 1 . F BK . E LOSS ) 

PTLOSSI  l.K-l  )  •  BBI K  IL-1  )*ELOSS 
F»( K- l  )  »  FPK 
FBI K- 1  )  -  r8K 

20  CONTINUE 

SECONO  LOOP  ON  K 

COMPUTE  FCEi;<),£l(K),E2(K  )  ,EDOT(  K  )  .  FR(  K  )  ,  U 1  (  KS  )  ,  U2(  KS  , 

NEED  F  B  (  KAK-  1  ),U(.<4K-1  )  ,ZR(  K  ) ,  E  3  (  K  > 

DO  30  K-K1.K2 

KNL  »  KNLO  ♦  K 
KI  •  NL<  1 .KNL  ) 

KS  •  I ABS (  I  BAR (  1  ,  K  I  )  > 

IF  (KS.GT.100)  KS  »  MOD(KS.IOO) 

DO  21  0-1,3 

FCE(O.K)  -  FBI K )*U<  0 . K  ) 

21  IF  (K.NE.K1)  FCE(O.K)  *  FCE(O.K)  -  FBI K-l >*U( 0 ,K-l  ) 

NT  »  I  BARI  3 , K I  ) 


HBELT  0510 
HBELT  0520 
HBELT  0530 
HBELT  0540 
HBELT  0550 
HBELT  0560 
HBELT  0570 
HBELT  0580 
HBELT  0590 
HBELT  0600 
HBELT  0610 
HBELT  0620 
HBELT  0630 
HBELT  0640 
HBELT  0630 
HBELT  0660 
HBELT  067  0 
HBELT  0630 
HBELT  0590 
HBELT  0700 
HBELT  0710 
HBELT  0720 
HBELT  0730 
HBELT  0740 
HBELT  0750 
HBELT  0760 
HBELT  0770 
HBELT  0780 
HBELT  0790 
HBELT  0800 
HBELT  0810 
HBELT  0620 
HBELT  0830 
HBELT  0840 
HBELT  0850 
HBELT  0860 
HBELT  0870 
HBELT  083C 
HBELT  0890 
HBELT  0900 
HBELT  0910 
HBELT  0920 
HBELT  0930 
HBELT  0940 
HBELT  0950 
HBELT  0960 
HBELT  0970 
HBELT  0980 
HBELT  0990 
HBELT  1000 
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NF  -  NTAB<  NT+5  ) 

IF  (NF.EQ.O  .AND.  IID.EQ.O)  GO  TO  30 
IF  ( IBARt 4,KI > .EO.O /  GO  TO  22 
3ALL  DOT31  (D< 1 . 1 ,KS  ),BAR(  10, KI !,T1> 

GO  TO  24 

22  DO  23  J-1.3 

T1 <  0  '  -  0.0 

IF  (K.NE.K2)  T1(J  )  -  U(0,K) 

23  IF  (K.NE.Kl)  T1 ( J >  -  T1IJ)  ♦  U(0.K-1> 

24  CALL  CROSS  <T1,E(1,3.K>,E(1,1,K)> 

CALL  CROSS  <E<  1  ,3,K>  ,E< 1 , 1 ,K  )  ,E< 1 ,2,K>  ) 

DO  25  0«1.3 

EDOT(J.K)  »  OSQRT  <  E(  1  ,  J  ,  K  ;  *"2  ♦  E(2.J,K>-*2  +  E(3.J,K>*«2> 
DO  25  1-1,3 

25  EU.J.K)  -  E  (  I ,  J  ,  K  )  /EDOTf  0  ,  K  ) 

CALL  DOT31  ( £ ( 1 , 1 , K  )  , FCE < 1 , K  ) . FR < 1 , K> > 

30  CONTINUE 

31  CONTINUE 

IF  ( MTP . LE . 0  1  GO  TO  41 

SUM  FCE  ,  FR  FOR  TIE-POINTS 

KNL1  •  KNLO  ♦  2 
KNL2  -  KNLO  ♦  K2 
DO  40  KNL-KNL1 ,KNL2 
KI  •  NL<  1  ,  KNL  ) 

KS  -  I ABS< I BAR< 1 .KI  )  ) 

IF  (KS.LT.100)  GO  T0  40 
KS  1  -  KS/100 
KH  -  KNL  -  KNLO 
MH  »  0 

DO  38  ONL-KNL 1  ,  KNL 
KI  -  NL< I .ONL-l  ) 

KS  -  IABS< IBAR( 1 .KI > ) 

IF  (KS.LT.100)  GO  TO  38 
KS2  -  KS/100 

IF  (KS2.NE.KSl  )  GO  TO  38 
OH  -  ONL-l  -  KNLO 
IF  (MH.EQ.O)  MH  -  OH 

DO  37  0-1.3 

FCE(J,MH>  -  FCE ( 0 , MH  >  ♦  FCE<J,KH> 

37  FCE ( 0 , OH  )  -  FCEIO.MH) 

CALL  DOT3I  < E( 1 , 1 , JH > ,FCE< 1 ,0H  )  ,FR( 1 . JH  )  ) 

38  CONTINUE 

IF  (MH.EQ.O)  GO  TO  40 

KI  -  NL < 1 .KNL  > 

IBAR(l.KI)  -  -IABS< IBARt 1 ,KI )  > 

DO  39  0-1.3 

39  FCE(O.KH)  -  FCE(O.MH) 

CALL  30T31  ( E< 1 , 1 ,MH > . FCE( 1 .MH > ,FR( I ,MH > > 


HBELT  1010 
HBELT  1020 
HBELT  1030 
HBELT  1040 
HBELT  1050 
HBELT  1060 
HBELT  10?0 
HBELT  10S0 
HBELT  1090 
HBELT  1100 
HBELT  1110 
HBELT  1120 
HBELT  1130 
HBELT  1140 
HBELT  11=0 
HBELT  1150 
HBELT  1170 
HBELT  nao 
HBELT  1190 
HBELT  1230 
HBELT  1210 
HBELT  1220 
HBELT  1230 
HBELT  1240 
HBELT  1250 
HBELT  1230 
HBELT  1270 
HBELT  1280 
HBELT  1230 
HBELT  1 3C0 
HBELT  1310 
HBELT  1320 
HBELT  1330 
HBEL"  1340 
HBELT  1350 
HBELT  1360 
HBELT  1370 
HBELT  1330 
HBELT  1390 
HBELT  1400 
HBELT  1410 
HBELT  1420 
HBELT  1430 
HBELT  1440 
HBELT  1450 
HBELT  1450 
HBELT  1470 
HBELT  1480 
HBELT  1490 
HBELT  1500 
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CALL  30T31  1 1  1  ,  1  ,  KH  )  ,  FCE  <  1  ,  KH  .  FRI  1  ,  KH  )  > 

HBELT 

1510 

40 

CONTI nUc 

HBELT 

1520 

HBELT 

1520 

IF  CALL  IS  FROM  SUBROUTINE  CONTCT. 

HBELT 

1540 

ADO  FORCES  (  FCE )  MODIFIED  8Y  FRICTION  TO  UI.U2  ARRAYS . 

HBELT 

1550 

HBELT 

1550 

41 

IF  (  IND.NE.O )  GO  TO  52 

HBELT 

1570 

K2  »  0 

HBELT 

1580 

DO  51  OB*0 1 ,02 

HBELT 

1530 

IF  INPTPLYI081.LE.0)  GO  TO  51 

HBELT 

1600 

KI  »  K2  ♦  1 

HBELT 

1610 

K2  «  K2  +  NPTPLYIOB) 

HBELT 

1620 

DO  50  K-K1.K2 

HBELT 

16  20 

KNL  »  tCNLO  ♦  K 

HBELT 

1640 

KI  -  NL ( 1 , KNL  ) 

H3ELT 

1630 

IF  <  IBAR< 1 ,KI ) .LT.O  >  GO  TO  50 

HBELT 

1 6o  j 

KS  »  I BAR C 1  ,KI  > 

HBELT 

1670 

IF  IKS. GT. 100)  KS  «  MOD(KS.IOO) 

HBELT 

1650 

NT  »  1  BARI  3 , KI ) 

HBELT 

1630 

NF  -  NTABI NT-5  ) 

HBELT 

1700 

IF  (NF.EQ.O)  GO  TO  43 

HBELT 

1710 

DO  42  0-1,3 

HBELT 

1720 

42 

T1I0 :  -  FRI J , K  ) 

HBELT 

1730 

FR1  «  TAB!  NF  +  2 )*DABSI  TU 3  )  ) 

HBELT 

1740 

FR2  «  TABINF-4)*DABS.T1I3)  ) 

HBELT 

1750 

IF  ( DABS! Til  1 ) ) .GT.FR1 >  Till)  - 

DSIGNI FRI ,T1< 1 >  > 

HBELT 

1760 

IF  IDABS(T1I2)).GT.FR2)  T112)  - 

0SIGN(FR2,T1(2)> 

HBELT 

1770 

CALL  MAT31  <E( 1,1 ,K).T1 .FCEI 1 ,K> ) 

HBELT 

1780 

43 

CALL  CROSS  IZR! 1 ,K)  .FCEI l .K),T2  ) 

HBELT 

17-50 

CALL  MAT31  1 D( 1 . 1 , KS > , T2 . T1  ) 

HBELT 

1 8u0 

DO  44  0-1,3 

HBELT 

1810 

U 1 1 0  ,  KS  >  »  U1I0.KS)  ♦  FCEIO.K) 

HBELT 

1820 

44 

U2I 0 ,  :S>  »  U2I0.KS)  ♦  T 1 1  0  > 

HBELT 

1830 

50 

CONTINUE 

HBELT 

1840 

51 

CONTINUE 

HBELT 

1350 

52 

KNLO  -  KNL 0  +  K2 

HBELT 

1350 

CALL  ELTIME  12,38) 

HBELT 

1870 

RETURN 

HBELT 

1880 

END 

HBELT 

1830 

122 
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SUBROUTINE  HBPUAY 

C  REV  19  10/23/79 

IMPLICIT  REAL“8  <A-H,0-Z) 

COMMON /CONTRL/  T IME , NSEG . NONT . NPL , N8LT , N3AG , NVEH . NGRND , 

*  NS.NQ.NSD.NFLX.NHRNSS.NL'ilDF . NJNTF , N»RT( 36) 
COMMON/CNTSRF /  PL< 1 7 , 30  ) , BELT! 20 . B > . TPTS i 6 . 8  ) . BD< 2* , 40  ) 

COMMON /SGMNTS/  0< 3 . 3 . 30 > ,UMEG( 3 . 30 > ,WMEGD< 3 . 30 > , U1 ( 3 . 30 ) .U2< 3 . 30 > , 

*  S£GLP<  3,30  1  ,SEGLV<  3,30)  ,SEGLA<  3,30>.NSYM<  30) 
COMMON/HRNESS/  3AR( IS, 100  )  ,BB( 100 ) .BBOOTl 100  > . PLOSS( 2 , 1 00 > , 

*  XLONG< 20), HT I ME (2), I BARI 5,100),NL(2,100>, 

*  NPTSPBl 20 ) ,NPTPLY<  20  I  ,NTHRNS( 20  ) , NBLTPH( 5  ) 

C  THIS  COMMON /TEMP VS/  IS  SHARED  BY  HPTURB ,  HBPLAY ,  HBELT  AND  HSETC . 
COMMON /TEMP VS/  B<3.3,3).S(3.3>.T(3l,R(3).V<3),Tt(3),T2(3). 

*  E<  3 . 3 , SO ) , E0OT( 3 , SO  ) , FCE( 3 , 60 > , FR( 3 , SO  ) , ZR< 3 , SO  ) , 

*  TR(3,50),U(3.SO),PTLOSS(2.50>.3L(50),FB(50).FP(50>. 

*  OLC8B< 100 ) ,RHS( 3 , 54  ) . C<  3 , 3 . 200  ) , IUKI 54 , 54  ) 

IF  (NHRNSS.LE.O)  GO  TO  99 

SAVE  PREVIOUS  NL.B8  ANO  PLOSS  ARRAYS. 

USE  IOK , OLDBB  AND  PTLOSS  AS  TEMP  STORAGE. 

DO  10  1-1.100 

IUK<  I  .  1  )  -  NL  (  1  .1  ) 

PTLOSS!  I  .  1  )  -  PLOSSl 1 .  I  > 

10  Y)L0BB(  I  )  «  BB(  I  ) 

JNL  «  l 
Jl  -  1 
K1  -  l 
LL  «  0 

CO  90  NH-l.NHRNSS 
IF  (NBLTPHtNH  ) -LE.0  )  GO  TO  90 
J2  ■  Jl  ♦  N8LTPH! NH )  -  1 
DO  80  NB»J1,02 

LI  -  LL 

IF  <  NPTSPB! NB ) . LE . 0 )  GO  TO  80 
K2  -  K1  ♦  NPTSPB(NB)  -  1 
KB  -  0 

DO  30  K-K1.K2 

KB  -  KB  ♦  1 

HERE  K  IS  INDEX  OF  ALL  POINTS 

KB  IS  INDEX  OF  POINTS  ON  A  SINGLE  BELT 
LL  IS  INDEX  OF  ALL  POINTS  IN  PLAY 
JB  IS  INDEX  OF  PREVIOUS  POINT  ON  BELT  IN  PLAY 

KS  -  IABS1 I BARI  1 ,K  > 

IF  (KS.GT.100)  KS  -  MOD(KS.IOO) 

KE  -  I BARI  2 , K  ) 

CALL  OOT31  <  D( 1 , 1 , KS  > , BARI  4 , K  ) , T1  ) 

CALL  DOT31  < Dt 1 . 1 , KS  ) , BARI  7 , K )  ,TZ  ) 


HBPLAY  0010 
HBPLAY  0020 
HBPLAY  OOiO 
HBPlAY  0040 
HBPLAY  0050 
HBPLAY  0060 
HBPLAV  0070 
HBPLAY  0080 
HBPLAY  0090 
HBPLAY  01C0 
HBPLAV  0110 
HBPLAY  0120 
HBPLAY  0130 
HBPLAY  0110 
HBPLA  '  0130 

HBPLA i  0130 
HBPLAY  0170 
HBPLAY  0130 
HBPLAY  0190 
HBPLA!  0200 
HBPLAY  0210 
HBPLAY  0220 
HBPLAY  0230 
HBPLAY  0240 
HBPLAY  0230 
HBPLAY  0260 
HBPLA'  0270 
HBPLAY  0230 
HBPLAY  0290 
J  B  P  L  A  v  0  3 1 0 
HBPLAY  0310 
HBPLAY  0320 
HBPLAY  0330 
HBPLAY  0310 
HBPLAY  0330 
HBPLAY  0353 
HBPLAY  0370 
HBPLAY  0380 
HBPLAY  0390 
HBPLAY  0400 
HBPLA'  0410 
HBPLAY  0420 
HBPLAY  0430 
HBPLAY  0410 
HBPLAY  0450 
HBPLAY  0460 
HBPLAY  0470 
HBPLAY  0480 
HBPLAY  0490 
HBPLAY  0500 
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00  11  J-1,3 

HBPLAY 

0510 

1 1 

U<  J , KB  >  *  SEGLP ( J ,  KS  >  ♦  T1(J)  ♦  T2<0> 

HBPLAY 

0520 

IF  (K.EQ.K1  )  GO  TO  30 

HBPLAY 

0530 

LL  *  LL  ♦  1 

HBPLAY 

0540 

12 

JJ  -  NL ( 1 , LL  ) 

HBPLAY 

0550 

OB  -  00  -  Kt  ♦  1 

HBPLAY 

0560 

OSS  -  0.0 

HBPLAY 

0570 

00  13  0*1.3 

HBPLAY 

0530 

ZR(J.KB)  «  U(O.KB)  -  U<0.03> 

HBPLAY 

0530 

13 

OSS  »  OSS  ♦  ZRl  J , KB ) **2 

HBPLAY 

0600 

BL<  LL  >  *  OSQRT(OSS) 

HBPLAY 

0610 

IF  (OO.EO.K1  .OR.  IABS< IBAR! 1 .00 ) ).GT. 1001  GO  TO  30 

HBPLAY 

0620 

OS  -  IBARf 1,00) 

HBPLAY 

0630 

OE  -  I BARI  2,00) 

HBPLAY 

0640 

IF  (OE.LE.O)  GO  TO  30 

HBPLAY 

0650 

CALL  MAT31  ( B0< 7 . OE ) , BARI  4 . 00 > . T2 > 

HBPLAY 

0650 

CALL  D0T31  < 0< 1 . 1 .OS > ,T2 . R ) 

HBPLAY 

0670 

DPR  *  0.0 

HBPLAY 

0680 

DO  17  0-1.3 

HBPLAY 

0690 

17 

OPR  -  OPR  +  R(0)*(ZRl0,KB)/BL(LL)  -  ZR( 0 ,0B >/BL( L L  —  1 >  ) 

HBPLAY 

0700 

IF  (DPR. LT. 0.0)  GO  TO  30 

HBPLAY 

0710 

LL  -  LL  -  1 

HBPLAY 

0720 

GO  TO  12 

HBPLAY 

07  3  0 

30 

NL ( 1 , LL*  1  )  -  K 

HBPLAY 

0740 

L2-L1  ♦  1  * 

HBPLAY 

0750 

LL  -  LL  ♦  1 

HBPLAY 

0750 

L3  -  LL - 1 

HBPLAY 

0770 

DO  31  0-L2.LL 

HBPLAY 

0730 

31 

NL ( 2 , 0  )  -  NTHRNS(NB) 

HBPLAY 

0730 

IF  (XLONG(NB). £0.0.0)  GO  TO  35 

HBPLAY 

HBP.A 

oeoo 

0810 

FIRST  TIME  IN  ROUTINE,  S'ET  INITIAL  3B  ARRAY. 

HBPLAY 

0820 

INPUT  XLONG  MUST  BE  NON-ZERO  TO  TRIGGER  THIS  TEST. 

HBPLAY 

HBPLAY 

0830 

0840 

XLG  *  0.0 

HBPLAY 

0850 

00  32  0-L2.L3 

HBPLAY 

0860 

32 

XLG  -  XLG  ♦  BL<0> 

HBPLAY 

08’0 

XLG  -  1.0  ♦  XL0NG( NB  ) /XLG 

HBPLAY 

0830 

CO  33  0-L2.L3 

HBPLAY 

0830 

33 

BB( 0 )  -  XLG-BL ( J  > 

HBPLAY 

0900 

XLONG(NB)  -  0.0 

HBPLAY 

0910 

GO  TO  52 

HBPLAY 

HBPLAY 

0920 

0930 

DETERMINE  IF  NEW  NL  ARRAY  IS  DIFFERENT  FROM  PREVIOUS  NL  ARRAY. 

HBPLAY 

0910 

IF  SO,  RECOMPUTE  BB  ELEMENTS  FOR  POINTS  THAT  ARE  DIFFERENT. 

H  3  ?  L  A  Y 
HBPLAY 

0950 

09S0 

35 

IF  <NL(1.L2).EQ.IJK:JNL,1)>  GO  TO  61 

HBPLAY 

0970 

WRITE  (6,62) 

HBPLAY 

0980 

62 

FORMAT  <‘0  LOGIC  ERR  ’R  IN  SUB  HBPLAY.  PROGRAM  TERMINATED.1) 

HBPLAY 

0990 

STOP  42 

HBPLAY 

1000 

124 


0  1 

LTEST  •  0 

HBPLAV 

1010 

M  -  12 

HBPLA 

1020 

PI  -  ONL 

HBPL. 

1030 

36 

IF  OILd.NM  >-lJKIN*l,l>)  39,37,41 

HBPLAY 

1040 

37 

BB( M )  -  OLDBBIN) 

HBPLAY 

105  0 

PLOS2 : 1 ,M>  -  PTLOSSI N ,  1  ) 

HBPLAV 

1050 

38 

M  »  M*1 

HBPLAY 

1070 

N  »  N*  1 

HBPLAY 

1080 

IF  <  M-LL  )  36,51,51 

HBPLAY 

1090 

c 

hBPLAY 

1  1  00 

c 

POINT  M+ 1  IS  NEW. 

HBPLAY 

1110 

c 

HBPLAY 

1120 

39 

MO  *  M 

H3PLAY 

1130 

NO  *  N 

HBPLAV 

1 1  4,' 

LTEST  -  1 

HBPLA'- 

1  130 

40 

M  ■  M+l 

HBPLAV 

1  150 

GO  TO  43 

HBPLA' 

117  0 

c 

HBPLAY 

1130 

c 

POINT  N+ 1  IS  DROPPED. 

HBPLAY 

1130 

2 

HBPLAV 

1200 

41 

MO  »  M 

HBPLA/ 

1210 

NO  *  N 

HBPLA  < 

1220 

LTEST  -  1 

HBPLAY 

1230 

42 

PI  -  N+ 1 

HBPLAY 

1240 

43 

IF  (NL<lfM+i>-IJK<N+l,!))  40,44,42 

HBPLAV 

12  30 

c 

HBPLAV 

12  50 

c 

POINTS  NO  TO  N+l  ARE  BEING  REPLACED  WITH  POINTS 

MO  TO  M«-l  .  HBPLAY 

1  2~0 

c 

HBPLAY 

1260 

44 

SUMBL  »  0.0 

HBPLAY 

1250 

DO  45  0-MO.M 

HBPLAV 

1300 

45 

SUMBL  »  SUMBL  ♦  BL101 

HBPLA' 

1310 

SUMPL  »  0.0 

HBPLAV 

1320 

SUMBS  *  0.0 

HBPLAV 

1330 

DO  46  O-NO.N 

HBPLAY 

1340 

SUMPL  -  SUMPL  +  PTLOSSI 0,1) 

HBPLAY 

1350 

46 

SUMBB  -  SUMBB  ♦  OLDB3IO) 

HBPLAV 

1360 

RATPL  -  SUMPL /SUMBL 

HBPLAV 

1370 

RATIO  -  SUMBB/SUMBL 

HBPLAY 

1330 

DO  47  O-MO.M 

HBPLA/ 

1390 

PLOSSI 1,0)-  RATPL*BL ( 0  ) 

HBPLAY 

1400 

47 

BBI 0 )  -  RATIO-BL ( 0  ) 

HBPLAY 

1410 

GO  TO  38 

HBPLAY 

1420 

51 

ONL  -  N-l 

HBPLAY 

1430 

IF  (LTEST. EO.O)  GO  TO  79 

HBPLAY 

1440 

c 

HBPLAY 

1450 

c 

PRINT  NEW  POINT  ARRAY  IF  DIFFERENT. 

HBPLAY 

1460 

c 

HBPLAY 

1470 

52 

NPTS  -  U  -  Li 

HBPLAY 

1480 

WRITE  (6,53)  NH,NB,NPTS,NTHRNS(NB) 

HBPLAY 

1490 

53 

FORMAT  CO  HBPLAY  NH ,  NB  ,NPTS ,  NT- '  ,  416  ) 

HBPLAY 

1500 

WRITE  (6.54)  ( NL< l .0 >.0-L2.LL  ) 

54  FORMAT  {•  NL  ( 1  >  -  ‘ . 15I8/(8X,  1518)  ) 

WRITE  (6,55)  <BB<0),0-L2.L3> 

55  FORMAT  ('  BB  - ' , 6X , 1 4F 8 . 3/( 6X , 1 5r 8 . 3  )  ) 

79  KI  •  K2  ♦  1 

80  NPTPLY(NB)  -  LI  -  LI 
J1  -  02  ♦  1 

90  CONTINUE 
99  RETURN 
END 


HBPLAY 

15)0 

HBPLAY 

1520 

HBPLAV 

153  0 

HBPLAY 

15-10 

HBPLAY 

1530 

HBPLAV 

1550 

HBPLAY 

1570 

HBPLAY 

1500 

HBPLAY 

1530 

HBPLAY 

1600 
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SUBROUTINE  HINPUT 

CONTROLS  THE  INPUT  0‘  CAROS  F.S.A  - 
CONTROL  OF  THE  HARNESS  BELT  SYSTEM. 


REV  19  10/23/79 
F.8.D  CONTAINING  THE  SETUP  AND 


IMPLICIT  REAL'S! A-H , O-Z ) 

COMMON/CONTRL/  TIME , NSEG . NJNT , NPL . NBLT, NBAG . NVEH . NGRND . 

•  NS,  NO, NSD.NFLX. NHRNSS .NWINOF .NJNTF.NPRT!  36 ) 

COMMON. CNSNTS/  P l  , RA M AN . G ,TH1 RD , EPS ( 24 > , 

•  UNITL ,UNITM,UNITT,GRAVTY<  3  > 

COMMON /HRNESS/  BARI  1S.100),BB(  IOO),8BDOT<  l 00 > . PLOSS< 2 . I  00 ) , 

•  XLONG<20>.HTIME<  2). I  BARI  5. 100) ,NL(  2. 100 ). 

•  NPTSP3!  20  > ,  NPTPLY! 20 )  .NTHRNS!  20 ) . NBLTPH!  S  > 

COMMON /TABL  ES/MXNT I , MXNTB , MXTB 1 . MXTB2 . NT  I ( 50 ) , NTAB ( 500  > , TAB< 2000 ) 
COMMON/CNTSRF /  PL < 1 7 . 30  ) . BELT< 20 . 8 ) . TP TS ( 6 . 8  ) . B0<  24 . 40 ) 
COMMON/TITLES/  DATE< 3  )  ,COMENT< 40  ) , VPSTTL1  20 > , BDYTTL (  5  > , 

•  BLTTTL(5,8).PLTTL(5,30),BAGTTL(5,6),SEG(30), 

•  JOINT(30),CGS(30),JS( 30) 

REAL  DATE, COMENT, VPSTTL.BDYTTL.BLTTTL, PL TTL.BAGTTL.SEG. JOINT 
LOG  I  CAL  *  1  CGS.JS 

THIS  COMMON /TEMTVS/  IS  SHARED  BY  CINPUT.  FINPUT,  HINPUT  AND  FDINIT 
COMMON /TEMP VS/  JTITLE <  5 . 5 1 ) . NF<  5 ) ,MS<  3 ) . KTITLE ( 3 1 > 

REAL  JTITLE. KTITLE 

IF  <  NHRNSS . EQ . 0  )  GO  TO  99 

INPUT  CARD  F.8.A 

(NOTE:  NHRNSS  NOW  SUPPLIED  ON  INPUT  CARD  D.i> 

NBLTPH  -  NO.  OF  BELTS  PER  HARNESS 

READ  (5,11)  (NBLTPH! I >, l-l .NHRNSS) 

1  I  FORMAT! 1814 ) 

WRITE  (6.12)  NHRNSS.! NBLTPH! I >, I-l .NHRNSS) 

12  FORMAT! ' 1  HARNESS-BELT  SYSTEM  I NPUT '  .  93X  .  ' CARDS  F.81// 

•  NO.  OF  HARNESSES  -'.14// 

•  '  NO.  OF  BELTS  PER  HARNESS  -',516) 

J1  -  1 

K1  -  l 

DO  90  I-l, NHRNSS 

IF  ( NBLTPH! I  l.LE.O)  GO  TO  90 

J2  -  J1  ♦  NBLTPH! I  )  -I 

INPUT  CARO  F.8.B  -  NPTSPB  -  NO.  OF  POINTS  PER  BELT. 

READ  15,11)  (NPTSPB(J),J-J1,J2> 

WRITE  (6.13)  I,(NPTSPB!0>.J-0l,J2) 

13  FORMAT! '0  FOR  HARNESS  NO.'. 13.'  NO.  OF  POINTS  PER  BELT  •*.2014) 

DO  80  0-01,02 

IF  (NPTSPBIO  > . EQ . 0  )  GO  TO  80 


HINPUT 

0010 

HINPUT 

0020 

-INPUT 

0020 

HINPUT 

0040 

HINPUT 

0050 

HINPUT 

0060 

HINPUT 

0070 

HINPUT 

0030 

HINPUT 

0030 

HINPUT 

01  OO 

HINPUT 

0110 

HINPUT 

0120 

HINPUT 

0130 

HINPUT 

0140 

HINPUT 

0150 

HINPUT 

0153 

HINPUT 

0170 

HINP  'T 

0130 

HINPUT 

0130 

HINPUT 

0200 

HINPUT 

0210 

HI  (PUT 

0220 

HINPUT 

0230 

HINPJT 

0240 

HINPUT 

0250 

HINPUT 

0260 

HINPUT 

0270 

HINPUT 

0230 

HINPUT 

0290 

HINPUT 

0300 

HINPUT 

0310 

HINPUT 

0320 

HINPUT 

0330 

HINPUT 

0340 

HINPUT 

0350 

HINPUT 

0350 

HINPUT 

0370 

HINPUT 

03PO 

HINPUT 

0390 

HINPUT 

04C0 

HINPUT 

0410 

HINPUT 

0420 

HINPUT 

0430 

HINPUT 

0440 

HINPUT 

0450 

HINPUT 

0460 

HINPUT 

0470 

HINPUT 

0480 

HINPUT 

0490 

HINPUT 

0500 
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INPUT  CARO  F.8.C  -  5  FUNCTION  NOS  AND  LENGTH  OF  EACH  BELT. 

HINPUT 

0510 

HINPUT 

0520 

READ  (5,14)  NF.XLONGIJ) 

HINPUT 

05  30 

14  FORMAT(5I4,F12.6) 

HINPUT 

0540 

WRITE  (6,15)  I . 0 , NF , XLONG( 0 ) , UNITL 

HINPUT 

05:0 

15  FORMAT! '0  HARNESS  NO. ’,13.'  BELT  NO.'.n.'  FUNCTION  NOS.1. 516, 

H  I  N  P  U  "r 

0530 

•  '  REFERENCE  SLACK  -  1 . F9 . 3 , 1 X . A4/ > 

HINPUT 

05^0 

IF  ( XLONGl J  ) . EO . 0 . 0 /  XLCNG(O)  ■  EPS124) 

HINPUT 

0530 

WRITE  (6.16) 

HINPUT 

0530 

16  FORMAT  ('0  K  KS  KE  NT  NPD  NDR 

FUNCTION 

NOS. ‘ , 

HINPUT 

0600 

*  66X, 'CAROS  F .8.0  '  /  ) 

HINPUT 

0  610 

HINPUT 

06  20 

SET  UP  POINTERS  IN  NTAB  AND  INITIAL  VALUES  OF  TAB 

FOR  BELT 

J 

HINPUT 

06  3  0 

AS  WAS  DONE  FOR  OTHER  CONTACTS  IN  SUBROUTINE 

F INPUT. 

HINPUT 

06  4  0 

HINPUT 

0650 

NTHRNS(J)  =■  MXNTB+ 1 

HINPUT 

0620 

CALL  FJINIT 

n INPUT 

0670 

K2  *  K1  ♦  NPTSPB(O)  -  1 

HINPUT 

0680 

OO  7C  K-Kl ,K2 

HINPUT 

0690 

N I M  P  U  “ 

0700 

INPUT  CARO  F  .3.0 

HINPUT 

0710 

HINPUT 

0720 

REAO  (5,21)  KS.KE .NPO.NDR.NF  ,  ( BAR ( L . K  )  , L - 1 . 3  ) 

HINPUT 

0730 

21  FORMAT  ( 9 I 4 , 3F 1 2 . 0  ) 

HINPUT 

0740 

REAO  (5,22)  <  BAR  <  L.K).L*7,12) 

HINPUT 

07:0 

22  FORMAT  (6F12.3) 

HINPU- 

0760 

I  BARI  1  ,K  )  =>  KS 

H INPUT 

0770 

:bar( : ,k )  »  ke 

HINPUT 

0760 

;bar(4.k)  *  npo 

HINPUT 

0790 

I  BAR ( 5  ,  K  )  «  NOR 

HINPU* 

0800 

I  BAR<  3  ,  K  )  *  MXNTB* 1 

HINPU- 

0310 

CALL  r  0  I  N  I  T 

HINPU'’’ 

0820 

SORER  »  1  . : 

HINPUT 

0820 

IF  (KE.NE.O)  SORER  »  OSQRT( XDY ( 3AR (  1 . K ) , BD( 7 . KE  ) . BAR( 1 , K >  )  : 

HINPUT 

0840 

OO  26  L-1,3 

HINPU' 

03E0 

IF  (KE.NE.O)  BAR ( L ♦ 6 , K  )  «  80<L*3.kE> 

HINPUT 

0830 

26  BARI L  »3 , K  )  »  BAR( L , K  ! /SORER 

HINPUT 

0870 

WRITE  (6,31)  K, (  IBARt L  ,K  )  .  L - 1  ,5  )  ,NF 

HINPUT 

03E0 

31  FORMAT  (1116) 

HINPUT 

0890 

70  CONTINUE 

HINPUT 

0900 

WRITE  (6,71)  UNITL , UNITL .UNITL .UNITL 

HINPUT 

0910 

71  FORMAT  (  ' 0 '  .  12X  ,  '  BASE  REFERENCE  (',  A4,')'. 

HINPUT 

0920 

*  7X. 'ADJUSTED  REFERENCE  ('.  A4.')', 

H I N?  JT 

0920 

•  1  IX  ,  OFFSET  (  '  .  A4  ,  '  )  '  , 

HINPUT 

0940 

*  1 IX ,' PREFERRED  DIRECTION  (  '  , A4  ,  1  )  '  / 

HINPUT 

0930 

•  5X . ' K '  ,  4<8X,  'X'  ,8X,‘Y'  ,8X,  Z '  ,3X)  /) 

HINPUT 

0950 

WRITE  (6,72)  <K,<BAR<L,K>.l-l,12),K-Kl,K2> 

HINPUT 

0970 

72  FORMAT  (  1 6 . 3X , 3F 9 . 3 , 3X , 3F 9 . 3 , 3X , 3F 9 . 3 , 3X , 3F 9 . 3  ) 

HINPUT 

0930 

K 1  •  KZ* 1 

HINPUT 

0990 

80  CONTINUE 

HINPUT 

1000 

01  -  02*1 

90  CONTINUE 

DO  92  K-1,100 

BBDOT <  K  )  »  0.0 
DO  91  0-1,2 

91  PLOSS(O.K)  =  0.0 

DO  92  0-1,3 

92  8AR<  0+ 1 2 , K  )  -  0.0 
99  RETURN 

END 


HINPUT  1010 
HINPUT  1020 
HINPUT  1030 
HINPUT  1040 
HINPUT  1050 
HINPU"  lOsO 
HINPUT  1070 
HINPU"  1030 
HINPUT  10SC 
HINPUT  il'.D 


SUBROUTINE  HPTURB 

C  REV  19  10/23/79 

IMPLICIT  REAL *8  (A-H.O-Z) 

COMMON/CONTRL/  TIME , NSEG , NONT , NPL , NBLT , NBAG . NVEH . NGRND  , 

*  NS.NQ.NSD.NFLX.NHRNSS.NWINDF  .NJNTF  ,NPR.T<  36  ) 
COMMON/CNSNTS/  P I  ,  RAO  IAN , G . TH I RD  ,  EPS ( 2 i  )  . 

*  UNITL , UNITM, UNITT.GRAVTYf 3) 

COMMON /CNTSRF/  PL(17,30>.3ELT(20.3>,TPTS<6,8),BD<24,40) 

COMMON /SGMNTS/  0(3,3,30) ,WMEG<  3,30) ,WM£GD( 3 , 30  ) , U 1 ( 3 , 30 > , U2f 3 . 30  ) . 

*  SEGLP ( 3 , 30 ) ,SEGLV<  3.30) ,SEGLA( 3,30 > ,NSYM< 30 ) 

COMMON /HRN ESS/  BAR( 15,100),B8(100).3BDOT(100>  , PLOSSf  2, 100  >  , 

*  XLONG(20).HTIME(2),I3AR(5,100>,NL( 2,100), 

*  NPTSPB( 20  )  ,NPTPLY( 20  ) , NTHRNS ( 20  ) , N B L T P H ( 5  ) 

C  THIS  COMMON /TEMP VS/  IS  SHARED  BY  HPTURB,  HBPLAV.  HBELT  AND  HSETC . 

COMMON /TEMP VS/  B(3.3,3),S(3,3).T(3),R(3),V<3),T1(3),T2(3>, 

■  E( 3, 3,50 ) ,EDOT( 3, 50  >,FCE(3,50>,FR(3.5Q).ZR<3,50), 

■  TR(3,50),U(3,50) ,PTL05S( 2.50).3L(50).FB(50),FP(50), 

«  OLDBB< 100),RHS(3,54),C(3,3,200), IJK(54,54) 

DIMENSION  BLOSS< 2 ,20 > ,HLOSS( 2,5  ) 

EQUIVALENCE  ( BLOSSf 1 , 1)  ,C<  1  ,  I  ,  1  )  )  ,  <  HLOSS<  I  ,  1  )  ,C(  1  ,  I  ,  1  0  )  ) 

LOGICAL  LAST 
DATA  MAXITR/10/ 

CALL  ELTIME  (1.39) 

CALL  HBPLAY 
DHT  «  0.0 

IF  (TIME. NE. 0.0)  DHT  =  TIME  -  HTIhE(l) 

HTIME ( 1  )  -  TIME 
DO  11  J-1,100 

PTLOSS( 0 , 1  )  -  0.0 
OLDBB(J)  -  BB ( J  ) 

DO  11  1-1,3 

11  8AR( I,J>  -  BAR( 1+3,0) 

TSEC  =  1 000 . 0*TIME 

IF  ( NPRT ( 28 ) . NE . 0 )  WRITE  (6,12)  TSEC , UN ITL , UNITM, UN ITL , 

*  UNITL .UNITM, UNITL, UNITM 

12  FORMAT! ' 1  HARNESS  SELT  RESULTS  FOR  TIME  -',F9.3,'  MSEC.'/// 

*  36X , 'BELT  STRAIN' ,63X, 'PENETRATION' / 

*  '  POINT  POINT  SEGMENT  LENGTH  ENERGY  LOSS', SX, 

*  'REFERENCE  POINT  <  ' ,A4 , '  > ' , 1 3X , ' BELT  FORCES  (  ' A4 . '  > '  . 

*  9X , 'ENERGY  LOSS' / 

*  ’  NO.  INDEX  NO.  (  '  , A 4  ,  '  )  (  '  , 2A4 ,  '  ) '  . 7X , 

*  'X* ,8X , ' Y ' ,8X. *Z' . 13X, ' X ' , 10X , ' Y ' . 10X, 'Z* ,8X, ' < ' .2A4 .')'/) 
J1  »  1 

KO  •  1 
KNLO  =■  0 

DO  61  NH=  l  , NHRNSS 
IF  (NBLTPH('IH).LE.O)  GO  TO  61 
ITER  *  l 
KNL 1  -  KNLO 


HPTURB  0010 
HPTURB  0020 
HPTURB  0030 
HPTURB  0040 
HPTURB  0050 
HPTURo  0060 
HPTURB  0070 
HPTURB  0030 
HPTURB  0030 
HPTURB  0130 
HPTURB  01,0 
HPTURB  0120 
HPTURB  0130 
J?TURB  0140 
HPTUR3  0150 
HPTURB  0  1  SC 
HPTURB  0170 
HPTURB  0130 
HPTURB  0130 
HPTURB  0200 
HPTURB  0210 
HPTURB  0220 
HPTURB  0230 
nPT'JRB  02  J  0 
HPTURB  0250 
HPTURB  0260 
HPTURB  0270 
HPTURB  0280 
HPTUR5  0290 
HPTURB  0300 
HPTURB  0310 
HPTURB  0320 
HPTURB  0330 
HPTUR3  0240 
iPTU'.S  0250 
HPTUR3  0350 
HPT'JRB  0370 
HPTURB  03=0 
HPTURB  0330 
HPTURB  0400 
HPTURB  0410 
HPTURB  0420 
HPTURB  0430 
HPTURB  0440 
HPTURB  0450 
HPTUR3  0450 
HPTURB  0470 
HPTURB  0430 
HPTURB  0430 
HPTURB  0500 
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START  OF  DO  59  I TER- 1 , MAX I TR  LOOP 

HPTURB 

0510 

HPTURB 

0520 

13 

N02 

-  54 

HPTURB 

0520 

DO 

14  I-1.N02 

HPTURB 

0540 

DO 

14  0-1,  N02 

HPTURB 

0550 

14 

I JK( I . J )  -  0 

HPTURB 

0550 

KNLG 

=  KNL1 

HPTURB 

0570 

J2 

-  01  ♦  NBLTPH(NH)  -  1 

HPTURB 

0530 

HPTURE 

0530 

SET 

UP  C  AND  I0K  ELEMENTS  FOR  TIE-POINTS. 

HPTURB 

0600 

HPTURB 

05  ’  " 

NTP 

-  0 

HPTURB 

0620 

IJ 

-  0 

HPTURB 

0620 

KNLK 

:  -  KNLO  +  1 

HPTURB 

064  0 

K1 

-  KNLK 

HPTURB 

0650 

DO 

18  NB-01,02 

HP  TUC  B 

0  6  5  0 

IF 

( NPTPl Y( NB  > . LE . 0  )  GO  TO  18 

hPtUR3 

0  6  ~  0 

a  2 

-  K1  +  NPTPL  Y ( NB )  -  1 

HPTURB 

063C 

DO 

17  KNL-K1.K2 

HPTURB 

0630 

K  I 

-  NL( 1 , KNL > 

HPTURB 

0700 

KS 

»  I ABS ( I BARI  1 , K I  )  ) 

HPTURB 

0710 

IF 

(KS.LT. 100)  GO  TO  17 

HPTURB 

07  2  0 

KS  1 

=  KS/100 

HPTUR3 

0720 

DO 

15  K-KNLK , KNL 

HPTURB 

0  7  2  0 

KK 

-  K 

HPTURB 

0750 

K I 

-  NL ( 1 , K  > 

HPTURB 

0750 

KS 

-  I ASS( IBAR<  1 ,KI  )  ) 

HPTURB 

077!) 

IF 

(KS.LT. 100)  GO  TO  15 

HPTURB 

0730 

KS2 

-  KS/100 

HPTURB 

0750 

IF 

( KS2.EQ.KS1 >  GO  TO  16 

HPTURB 

08  20 

15 

CONTINUE 

HPTURB 

0310 

16 

IF 

( KK.EO.KNL  )  GO  TO  17 

HPTURB 

0820 

NTP 

=  NTP  ♦  1 

HPTUR3 

08  30 

KK  1 

-  KK  -  KNLO 

HPTURB 

0840 

KK2 

»  KNL  -  KNLO 

HPTURB 

0830 

I0K( NTP , KK1  )  -  IJ  ♦  1 

HPTURB 

0860 

I0K( NTP , KK2 )  -  10  ♦  3 

HPTURB 

C87C 

10 

-10  +  4 

HPTUR3 

0830 

17 

CONTINUE 

HPTUR3 

0830 

K 1 

=  K2  ♦  1 

HPTUR3 

0900 

18 

CONTINUE 

HPTURB 

0910 

IF 

(NTP.EQ.O)  GO  TO  23 

HPTURB 

0920 

DO 

20  1=1, NTP 

-°TURB 

0930 

DO 

19  0-1, K2 

HPTURB 

0940 

001 

-  K2+ 1 -0 

HPTURB 

0950 

IF 

< 1 0K( 1 ,001 ) .EQ.O  >  GO  TO  19 

HPTURB 

0950 

002 

-  001  ♦  NTP 

HPTURB 

0970 

I0K{ I ,002  )  »  1 0 K <  I  ,001  > 

HPTUR5 

0950 

I0KI002.I )  -  I0K(  I  ,001 >  ♦  1 

HPTURB 

0930 

1 0 K < I ,001 )  ■  0 

HPTURB 

1000 
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n  o  o 


19 

CONTINUE 

HPTURB 

DO  20  J«  1 , 3 

HPTURB 

20 

RHS( 0  ,  I  >  -0.0 

HPTURB 

DO  22  K-1,10,2 

HPTURB 

DO  22  0-1.3 

HPTURB 

DO  21  1-1,3 

HPTURB 

C(  I.0.K  )  »  0.0 

HPTURB 

21 

C<  I.O.K+1  )  -  0.0 

HPTURB 

C<  0 , 0 , K  )  -  1.0 

HPTURB 

22 

C(0,0,K+1  )  -  -1.0 

HPTIJR3 

23 

KNLO  -  KNL 1 

HPT'  36 

CALL  HBELT  ( 0  1 , 02 . KNLO , 1  ) 

HPTURB 

KHO  -  0 

HPTURB 

KNLO  »  KNL 1 

HPTURB 

DO  24  NB-01,02 

HPTURB 

IF  (NPTPLY(NB).LE.O)  GO  TO  24 

HPTURB 

NPTS  »  NPT?'_Y(N3> 

HP-UR3 

CALL  HSETC  ( NPTS , KHO , KNLO . NTP . 10 ) 

HPTURB 

KHO  -  KHO  ♦  NPTS 

HPTURB 

KNLO  -  KNLO  +  NPTS 

HPTURB 

24 

CONTINUE 

HPTURB 

MO 2  -  -( KHO  +  NTP  ) 

HPTURB 

IF  (NF  T( 29  ) . LT . 3 )  GO  TO  29 

HPTURB 

N02  -  -MO 2 

HPTUR3 

DO  25  0-1, N02 

HPTURB 

25 

WRITE  (6.26)  J,(RHS(I, 01,1*1,3), <I0K<0, I), I-1.N02) 

H»TURB 

26 

FORMAT  (  I6.3F12.6,20I4/<  42X.20I4) ) 

HPTURB 

DO  27  KLM-l.IO 

HPTURB 

27 

WRITE  (6,28)  KLM, ((C(0, I, KLM), 1-1.3), 0-1,3) 

HPTURB 

28 

FORMAT  ( I6.9F12.6) 

HPTURB 

29 

CALL  FSMSOL  ( C  ,  RHS  ,  I  OK . M02 , 10 , 5 4 , 200  > 

HPTURB 

IF  <  NP RT( 28  )  . LT . 3 )  GO  TO  31 

HPTURB 

DO  30  0-1, N02 

HPTURB 

30 

WRITE  (6,26)  0 , ( RHS (  1,0 > ,  I  - 1 , 3  ) , ( I0K(0,I >,I»1,N02> 

HPTURB 

31 

ONE  -  1.0 

HPTURB 

DELMAX  *  0.0 

HPTURB 

SCALE  -  1.0 

HPTURB 

DO  44  IT-1,2 

HPTURB 

K 1  -  KO 

HPTURB 

KH  -  0 

HPTURB 

KR  -  NTP 

HPTURB 

DO  43  NB-01,02 

HPTURB 

IF  (NPTPLY(NB).LE.O)  GO  TO  43 

HPTURB 

K 2  *  K 1  ♦  NPTPLY(NB)  -  1 

HPTUR3 

DO  42  K-K1.K2 

HPTURB 

KH  -  KH  ♦  1 

HPTURB 

KR  -  KR  +  1 

HPTURb 

HPTURB 

HERE  K  IS  INDEX  OF  ALL  POINTS  IN  PLAY 

HPTURB 

KH  IS  INDEX  OF  ALL  POINTS  IN  PLAY  ON  A  SINGLE  HARNESS 

HPTURB 

1010 
1020 
1030 
1040 
1050 
1060 
1070 
1080 
1090 
1  100 
1110 
1120 
1  1  20 
1140 
1  150 
1160 
1170 
1  1  BO 
1190 
1200 
1210 
1220 
1230 
1210 
1250 
1250 
1270 
1280 
1230 
1300 
1310 
1320 
1330 
1340 
1330 
1350 
13'0 
1330 
1390 
1400 
1410 
14  20 
1430 
14  10 
1450 
1450 
1470 
1  460 
14  30 
1500 
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o  o  o  on 


KR  IS  INDEX  OF  RMS  ARRAY  ELEMENTS 


1 


K I  -  NL<  1  .<> 

KS  *  IABS(  I  BAR ( 1 .KI  ) ) 

IF  (KS.GT.100)  KS  »  MOD(KS.IOO) 
IF  <  IBARI5.KI >.EQ.O)  GO  Tr  32 
CALL  MAT 3 1  ( 0( I , 1 , KS  ) . RHSl  1  ,  *R  ) .  R  ) 
GO  TO  37 


NOTE:  ENDPOINTS  (K  =  Ki  4  K2 1  MUST  BE  TYPE  5. 


32  CALL  OOT31  ( E ( 1 , 1 . KH ) . RHS(  1 , KR ) . T 1  > 

IF  l IT.EQ.2  )  GO  TO  33 

DELMAX  »  DMAX  1  (  DELMAX  ,  DABS{  Tl  (  2  /  /DM  I N1  (  BB<  K  ) ,  <jB(  K  - 1  )  )  )  ) 

GO  TO  34 

33  38 ( K  )  -  88 (  K  )  ♦  SCAL£*T1(2> 

BB(K-l)  *  BB(K-l)  -  SCALE*T1 ( 2  ) 

34  DO  35  0-1,3 

35  T2<  J )  =  T 1  (  1 ) *E ( J , 1 , KH  )  ♦  Tl  <  3 ) *E ( J , 3 , KH  > 

CALL  MAT31  ( D( 1 , 1 ,KS > ,T2,R> 

IF  ( NPRT( 28  ) . GE . 3  )  WRITE  (6,35)  K.T1.T2.R 

36  FORMAT  (  'O'  , I  6 , 2 <  3X  ,  3F  1  2 . 6  )  ) 

37  IF  ( IT.EQ.2)  GO  TO  39 

DO  38  J-1,3 

33  DELMAX  -  DMAX 1 < DELMAX , DABS ( R( 0  ) /DMAX 1 ( E P S (  1  >, DABS ( BAR( J *3 , KI  )>))  ) 
GO  TO  42 

39  DO  40  0-1,3 

40  BAR( 0  +  3 , KI >  -  BAR( 0  +  3  ,K1  )  *  SCALE*R(0> 

KE  «  I BAR( 2 , KI  ) 

IF  (KE.ECI.O)  GO  TO  42 

RER  -  XDY( 3AR< 4,KI >,BD( 7.KE  )  ,BAR< 4,KI  )  i 
IF  (RER. LE. 1.0)  GO  TO  42 
SQRER  -  1 . 0/DSQRT( RER  > 

DO  41  0-1,3 

41  BAR( J  +3 , K I )  -  SQRER* 8AR(0  +  3,KI > 

42  CONTINUE 

KI  -  K2  ♦  1 

43  CONTINUE 

IF  (  IT.EQ.2)  GO  TO  44 

IF  (DELMAX. NE. 0.0)  SCALE  -  DMINU  ONE  ,EPS(  1 )/ DELMAX ) 

44  CONTINUE 

IF  ( NPRT( 28  ) . GE . 2 )  WRITE  (6,45)  I  TER , DELMAX , SCALE 

45  FORMAT  ('0  ITER  -'.le,1  DELMAX  -',F15.S,'  SCALE  -'.F15.6) 

LAST  -  DELMAX. LE.EPS(2)  .OR.  ITER . E Q . MAX  I TR 

IF  ( .NOT. LAST)  GO  TO  52 
KH  -  0 
KI  -  KO 

HLOSSI 1 ,NH )  -  0.0 
HLOSS( 2 , NH  >  -  0.0 
DO  51  NB-01,02 


HPTURB 

1 5 ;  d 

iPTUPS 

1520 

HPTURB 

1520 

n?  TUR  3 

15-0 

HPTURB 

15  3  0 

HPTURB 

1  5  =  0 

HPTURB 

1573 

HPTURB 

1530 

HPTURB 

1590 

n  P  T  'J  R  3 

1  o  0  0 

upTup  3 

1613 

ri  P  '  'J  R  B 

1620 

n  P  T  U  R  3 

16  3  0 

HPTUR2 

1613 

HPTUP? 

16  =  3 

HPTUR3 

1660 

-PTUR3 

1670 

HPTUR3 

1680 

HPTURB 

1590 

HPTURB 

17  30 

HPTURB 

1710 

HPTURB 

1720 

HPTURB 

1730 

HPTURB 

17-0 

HPTURB 

1750 

HPTURB 

1750 

HPTURB 

1"  '0 

HPTURB 

1780 

HPTURB 

1790 

HPTURB 

1800 

HPTUR3 

1810 

HPTUR3 

1820 

HPTURB 

1830 

HPTURB 

1840 

HPTURB 

1850 

HPTURB 

1860 

HPTURB 

1870 

HPTURB 

1830 

HPTURB 

1890 

HPTURB 

1900 

HPTURB 

1910 

HPTURB 

1920 

HPTURB 

1930 

HPTURB 

1940 

HPTURB 

1950 

HPTUR3 

1960 

HPTURB 

1970 

HPTURB 

1980 

HPTURB 

1990 

HPTURB 

2000 

! 

j 

i 
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3L0SS( 1.N8)  -  0.0 
BLOSS(2.NB>  *  0.0 
IF  <  NPTPL  Y ( NB  > . L E . 0  )  GO  TO  51 
K2  »  K1  ♦  NPTPLV(NB)  -  1 
KK1  -  NL (  1 , K  1  ) 

KK2  -  NL< 1 ,K2  ) 

DO  46  K-  <K  1 , KK2 
DO  46  0-1,3 

46  BAR( 0 ♦ 1 2 , K  >  -  0.0 

IF  ( DHT.EQ.0.0  )  GO  TO  49 
DO  48  K-K1.K2 

KH  -  KH  +  1 
K I  •  NL (  1 , K  ) 

PLOSS( 2 ,  K I  )  -  PLOSS12.K1  )  +  DHT*PTLOS$t 2 , KH  ) 

IF  (K.Ed.Kl  )  GO  TO  47 
BBDOT(K-l)  -  (B3(K-l  >-OLDOB(K-l i  l/OHT 
PLOSS(l.K-l)  -  PLOSS(l.K-l)  ♦  DHT*PTLOSS(  1 , KH- 1  ) 
BLOSS(l.NB)  -  BLOSS ( 1 , NB  >  ♦  PLOSS(l,K-l> 

47  DO  48  J-l  .3 

48  BAR(  0  +  1  2  ,  K I  )  «■  (8AR(J  +  3,KI  )-BAR(J,Kl  )>/DHT 
BBDOT  <-  <  2  >  -  0.0 

? LOSS (  1 ,K2  )  -  0.0 

49  K 1  -  K2-M 

DO  50  K-KK1.KK2 

50  BLOSS  <  2 , N3  )  -  BLOSS(2.NB)  ♦  PL05S(2,K) 

HLOSSU.NH)  -  HLOSS(  1  ,MH )  ♦  BLOSS(l.NB) 

HLOSSt 2 , NH  )  -  HLOSS( 2 , NH  )  +  BLOSS(2.NB> 

51  CONTINUE 

52  IF  <  NPRT ( 28  > . £Q. 0  )  GO  TO  59 

IF  (.NOT. LAST  .AND.  I A9S( NPRT( 28  )  )  . EQ . 1)  GO  TO  59 
K1  -  KO 
KH  -  0 

DO  57  NB-J1.J2 
IF  <NPTPLY(NB>.LE.O)  GO  TO  57 
WRITE  (6,53)  NB , NH 

53  FORMAT  <*0  BELT  NO.', 1 4,'  OF  HARNESS  NO.', 14) 

K2  -  K1  +  NPTPLY(NB)  -  1 

DO  54  K-K1.K2 

KH  -  KH  +  1 
K I  -  NL ( 1 , K  > 

KS  -  IBAR< 1 ,KI  ) 

3K  -  0.0 

IF  ( K . NE . <  1  )  BK  -  38 <  K- 1  ) 

PLS  •  0.0 

IF  (K.NE.Kl)  PLS  -  PLOSSU.K-l) 

54  WRITE  (6,55)  K , K I , KS . BK , PLS , ( BARI  0 , KI  ) , 0  =  4 , 6  ) , 

*  (FCE(0,KH>,0-1,3),PLOSS(2,KI > 

55  FORMAT  < 3 1 8 , F 1 0 . 3 , F 1 2 . 3 , 2X , 3F9 . 3 , 3X , 3F 1 1 . 3 , 3X , F 1 2 . 3 > 

IF  (LAST)  WRITE  (6,56)  BLOSS( I , NB  ) , BLOSS ( 2  ,  NB  ) 

56  FORMAT  {  • 0  TOTAL  BELT  ENERGY  LOSS ' , 7X , F 1 2 . 3 , 68X , F 12 . 3  ) 


HPTURB 
HPTUR 3 
HPTUR3 
HPTURB 
HPTURB 
HPTURB 
HPTUR3 
HPTUR  3 
HPTURB 
HPTURB 
HPTURB 
HPTUR3 
HPTURB 
HPT JR i 
HPTURB 
HPTURB 
-i  P  T  U  R  3 
HPTUR3 
HPTURB 
HPTURB 
HPTUR3 
HPTURB 
HPTURB 
HPTUR  3 
HPTURB 
HPTURB 
HPTUR3 
HPTUR3 
HPTURB 
HPTURB 
HPTUR3 
HPTURB 
HPTURB 
HPTURS 
HPTURB 
HPTUR3 
H°TUR3 
HPTUR3 
HPTUR3 
HPTUR3 
HPTUR3 
HPTURB 
HPTUP.3 
HPTURB 
HPTUR3 
HPTUR3 
HPTUR3 
HPTURB 
HPTURB 
HPTURB 


2010 
2020 
2030 
2040 
2050 
2060 
2070 
2080 
2090 
2100 
2110 
2  t  •>  o 

21  30 
2  i  i  0 
2130 
213- 
2170 
21  30 
2190 
22C0 
2210 
2220 
223  j 
2240 
2250 
2250 
22.0 
223'' 
2290 
2300 
2310 
2320 
2330 
2340 
2350 
2350 
2370 
23S0 
2390 
2400 
2410 
2420 
2430 
2440 
2430 
2450 
2470 
24  ^  v 
24-0 
25c.  0 
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K1  ■  K2  *  i 
57  CONTINUE 

IF  (LAST)  WRITE  ig,38)  HLOSSf 1 , NH > , HLOSS( 2 , NH  ) 

S3  cORMAT  {  ■ 0  TOTAL  HARNESS  ENERGY  LOSS  1 , 7X , F I  2 . 3 , S8X , F 1 2 . 3  ) 

59  ITER  *  ITER  ♦  1 

END  OF  OO  59  ITER-l .MAXITR  LOOP 
IF  < .NOT. LAST  )  GO  TO  13 

IF  < ITER.GT.MAXITR  )  WRITE  (6,60)  MAX ITR . TSEC , DELMAX , SCALE 

60  FORMAT  ('0  HPTURB  ITER  -‘.U,’  AT  TIME  »',F8.3, 

•  •  MSEC.  DELMAX  -,,F10.6,*  SCALE  »'.F10.6> 

01  »  02  +  1 
KO  *  K1 

61  CONTINUE 

IF  (UPRT, 28J.LT. 0)  NPRT ( 28  )  ■  0 

CALL  ELTIME  (2,39) 

RETURN 

END 


HPTURB  2510 
HPTURB  2520 
HPTUR3  2530 
HPTURB  2510 
HPTURB  2550 
HPTURB  2550 
HPTUR3  2570 
HPTllR  3  2530 

HPTUR3  2550 
HPTURB  2630 
HPTUR j  2610 
HPTURB  2620 
HPTURB  2620 
HPTURB  2640 
HPTURB  2650 
HPTUR3  2650 
HPTURB  2670 
HPTURB  2630 
HPTURB  2690 
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SUBROUTINE  HSETC  < NPTS , KHO . KNLO , NTP , 10 > 

HSETC 

0010 

REV  19  10/30/79 

HSETC 

0020 

IMP  IC IT  S£AL»8  <A-H,0-Z> 

HSETC 

0030 

COMMON/ SGMNTS/  0(3,3,30)  ,VMEG( 3, 30 ) , WMEGD< 3,30),U1(3,30),U2<3,30), 

HSETC 

004G 

-  SEGLP ( 3 , 30 > ,S£GLV<  3,30 ) , SEGLAt  3 . 30  > , NSYM< 30  > 

HSETC 

0050 

COMMON/TABLES/  MXNTI , MXNTB , MXTa 1 , MXTB2 , NT I ( 50 > . NTAB<  500  > . TAB < 2000  ) 

HSETC 

0060 

COMMON /HRNESS/  8AR< 15,100>,BB( 100>,3BDOT( 1  00 > , PLOSSf 2 , 1 00 > , 

HSETC 

0070 

*  XLONG( 20 ) , NT IME<  2  ) , I BARI  5 . 1 00  ) , NL ( 2 , 1  00  ) , 

HSETC 

0030 

*  NPTSPB( 20  )  ,NPTPLY( 20  ) , NTHRNS( 20  > , NBLTPH( 5  > 

HSETC 

0030 

THIS  COMMON /TEMP VS/  IS  SHARED  BY  HPTURB ,  HBPLAY ,  HBELT  AND 

HSETC. 

HSETC 

01  CO 

COMMON /TEMP VS/  B(3,3,3).Sf3.3),T(3),R(3),V(3>,Tl(3),T2(3>, 

HSETC 

0110 

*  E(  3,3,50 ) ,EDOT(  3,50>,FCE(3.50>.FR<3,50>,ZR(3 

.50  ) , 

HSETC 

0120 

*  TR(3,50).U(3,50),PTLOSS(2.50).BL(50>,FB(50>, 

FP( 50  ) . 

HSETC 

0130 

•  OLDBBI 100 ) ,RHS( 3,54>,C<3,3,200>,IJK(54,54> 

HSETC 

0)40 

DIMENSION  KM( 3  > , MK( 2  ) 

HSETC 

0150 

ONE  -  1.0 

HSETC 

0150 

KNL  »  KNL  0 

HSETC 

0170 

KH  *■  KHO 

HSETC 

0130 

K 1  -  KHO  ♦  NTP  ♦  1 

HSETC 

0190 

K2  -  KHO  ♦  NTP  +  NPTS 

HSETC 

0200 

OO  60  K-K1.K2 

HSETC 

0212 

HSETC 

0220 

HERE  K  IS  INDEX  OF  IJK  AND  RHS  ARRAYS 

HSETC 

0230 

KH  IS  INDEX  OF  POINTS  IN  PLAY  ON  EACH  HARNESS 

HSETC 

0240 

KNL  IS  INDEX  OF  ALL  POINTS  IN  PLAY 

HSETC 

0250 

K I  IS  INDEX  OF  ALL  POINTS 

HSETC 

0260 

HSETC 

0270 

KH  -  KH  ♦  1 

HSETC 

0280 

KNL  *  KNL  *  1 

HSETC 

0290 

HSETC 

0300 

ZERO  C(K.K)  ,  C  ( K ,  K- 1  >  ,  C(K,K*1>  A  RHS(K),-  SET  IJK(K,K)  - 

IJ 

HSETC 

0310 

HSETC 

0370 

KM<  1  )  *  K+  1 

HSETC 

0330 

KM<  2 )  »  K-l 

HSETC 

03  40 

KM( 3  )  -  K 

HSETC 

0350 

IF  (K.EO.K2)  KM( 1  )  »  0 

HSETC 

0350 

IF  (K.EQ.Kl  )  KM( 2  )  *  0 

HSETC 

0370 

KK  -  IJ 

HSETC 

0  3  o 

DO  12  L-1,3 

HSETC 

0330 

RHS(L.K)  •  0.0 

HSETC 

0400 

IF  (KM(L).EQ.O)  GO  TO  12 

HSETC 

0410 

KK  »  KK* 1 

HSETC 

0420 

00  11  1-1,3 

HSETC 

0420 

OO  11  0-1,3 

HSETC 

0440 

C< I ,0 , KK  )  «  0.0 

HSETC 

0450 

CONTINUE 

HSETC 

0  4  5  0 

IJ  -  IJ  +  1 

HSETC 

0470 

I0K1K.K  )  -  10 

HSETC 

0430 

HSETC 

0430 

COMPUTE  CNORM;  IF  ZERO,  SET  C(K,K)  -  I 

HSETC 

0500 

136 


o  r 


1 


HSETC 

0510 

CNORM  »  0.0 

HSETC 

0520 

IF  (K.NE.K2)  CNORM  -  FB<  KH  >/Bl<  KH  ) 

HSETC 

0530 

IF  ( K.NE.K1 >  CNORM  -  CNORM  ♦  FB( KH-l )/3L( KH-1 > 

HSETC 

0540 

IF  (CNORM. NE. 0.0)  CO  TO  14 

HSETC 

C550 

KK  •  IOKIK.K) 

HSETC 

0560 

DO  13  1-1.3 

HSETC 

0570 

13 

Ci I.l.KK)  *  ONE 

HSETC 

0530 

GO  TO  60 

HSETC 

0590 

14 

K I  -  NL(  1 , KNL  ) 

HSETC 

0600 

KK  >  I BAR<  3  ,  k  I  ) 

HSETC 

0610 

NFD  -  NTAB; KK  +  l  ) 

HSETC 

0620 

NFR  -  NTAB  <K  +  5  ) 

HSETC 

0630 

HSETC 

06-10 

SET  UP  8(3. 3. 3)  AND  S(3,3) 

HSETC 

0650 

HSETC 

0650 

MK( 1 )  -  KH 

HSETC 

0670 

MK ( 2 )  -  KH-1 

HSETC 

0S3C 

IF  (K.EQ.K2)  MK( l  )  -  0 

HSETC 

0530 

IF  (K.EQ.K1  )  MK(2>  ■  0 

HSETC 

07)0 

DO  18  M-l .2 

HSETC 

0710 

KK  *  MK( M 1 

HSETC 

0720 

IF  (KK.NE.O)  GO  TO  16 

HSETC 

0730 

DO  15  1*1.3 

HSETC 

0740 

S! I ,M>  »  0.0 

HSETC 

0750 

00  15  J-1,3 

HSETC 

0760 

15 

B( I ,J.M)  -  0.0 

HSETC 

0770 

GO  TO  18 

HSETC 

0730 

16 

CALL  D0T31  ( E ( 1 . 1 . KH  ) . U< 1 . KK  ) , T  ) 

HSETC 

0790 

KIM  •  KNL  ♦  I  -  M 

HSETC 

080C 

FBI  *  FB<KiO/3L(«> 

HSETC 

0810 

F32  -  FP(KK)/BB(KIM>  -  FBI 

HSETC 

0820 

FB3  *  FP< KK )*BL< KK )/3B( KIM)**2 

HSETC 

0830 

DO  17  1*1,3 

HSETC 

0340 

SGN  -  ONE 

HSETC 

0850 

IF  ( FR( I , KH  ) . LT . 0 . 0  >  SGN  *  -ONE 

HSETC 

0860 

S ( I , M  >  »  SGN*(FB3*T(  I  )  ) 

HSETC 

0870 

DO  17  0*1,3 

HSETC 

0880 

17 

B(I.O.M)  *  SGN*(FB1*E(U,I,KH>  «■  FB2*T( I )*U( 0 , KK  >  ) 

HSETC 

0890 

18 

CONTINUE 

HSETC 

0900 

DO  19  1*1,3 

HSETC 

0910 

S( I ,3  )  -  -<  S< 1 , 1 >  ♦  S( I .2  ) ) 

HSETC 

0920 

DO  19  0*1.3 

HSETC 

0930 

19 

B( I ,0 ,3  )  *  -(  B( 1,0,1  )  ♦  B(  I , 0 , 2  ) ) 

HSETC 

0940 

IF  (NFR.E3.0)  GO  TO  20 

HSETC 

0950 

R( 1  )  *  TA8( NFR  +  2  ) 

HSETC 

0960 

R( 2  >  «  TAB( NFR  +  4  ) 

HSETC 

0970 

20 

R( 3  )  -  0.0 

HSETC 

0980 

DO  50  M-l, 3 

HSETC 

0990 

RH  •  0.0 

HSETC 

1000 

L 


o  o  n  o  o  o 


IF  IM.EQ.3)  GO  TO  31 

HSETC 

1010 

IF  (iMFR.EQ.O)  GO  TO  48 

HSE7C 

1020 

HSETC 

1030 

CONSTRAINTS  1  AND  2 

HSETC 

1040 

HSETC 

1050 

SGN  -  -ONE 

HSETC 

1060 

FR3  «  DA3S I FRI M , KH  ;  )  -  RIM  >*0ABSI FRI 3 , KH  )  > 

HSETC 

1070 

IF  ( IBARI 1 ,KI  I.GT.O >  RH  •  FR3 

HSETC 

1080 

IF  I FR3.LE.0.0  )  GO  TO  43 

HSETC 

1090 

GO  TO  40 

HSETC 

I  100 

HSETC 

1110 

CONSTRAINT  NO.  3 

HSETC 

1120 

HSETC 

1130 

IF  (NFD.EQ.O)  GO  TO  48 

HSETC 

1  140 

IF  I  I BARI  1 , KI  ) . LT . 0  >  GO  TO  40 

HSETC 

1  150 

SGN  •  ONE 

HSETC 

1150 

RMAG2  *  TR( 1 , KH  ) *-2  ♦  TR(2,KH>«*2  ♦  TRI3,KH>**2 

HSETC 

lire. 

RMAG  *  OSORT ( RMAG2  ) 

HSE'C 

1130 

RER2  -  TR(1.KH)*EI  1.3.KH1+  TRI,2 .  KH  >«E  <  2 . 3  ,  KH  >♦ 

TR(  3 .  KH  >*E1  3 , 3 . KH  ) 

HSETC 

1  190 

RER2  »  EOOTI 3,KH  1-RER2 

HSETC 

1  200 

RER  -  DSQRTIRER2) 

HSETC 

1210 

PEN  *  RMAG /RER  -  RMAG 

HSETC 

1220 

RRDOT  *  BARI 4.KI  l-BARI 13. KI  ) 

HSETC 

1230 

♦  BARI  5 , K I  )*BAR(  14. .<1  ) 

HSETC 

1240 

♦  BARI  6 , K I ) *BARI 15. KI  ) 

HSETC 

1250 

KS  -  1ABSI IBARI 1 . KI >  > 

HSETC 

1260 

IF  IKS. GT. 100)  KS  »  MO0IKS.100) 

HSETC 

1270 

CALL  DOT31  I Dt 1 , 1 , KS ) . BARI  1 3 , KI ) . T ) 

HSETC 

1280 

EROOT  -  E<  1 , 3 , KH  >*TI 1  )  ♦  £  I  2 . 3 , KH  )*TI 2  )  *  EI3.3, 

KH  >*T< 3  ) 

HSETC 

1290 

Cl  *  PEN/RMAG2 

HSETC 

1300 

C2  *  RMAG-EDOTI 3 , KH ) /I RER*RER2 ) 

HSETC 

1310 

PDOT  -  C 1 *RRDOT  -  C2-EROOT 

HSETC 

1320 

CALL  FRCDFL  I  PEN , PDOT , NFD . 0 , FDP , ELOSS > 

HSETC 

1330 

CALL  FRCOFL  I  PEN , ROOT . NFD  .  1 , FD  , ELOSS) 

HSETC 

1340 

RH  -  FD  -  0ABSIFRI3.KH)  ) 

HSETC 

1350 

PTLOSSI 2 , KH )  -  ELOSS 

HSETC 

1360 

Cl  •  FDP*C1 

HSETC 

1370 

C2  -  FOP*C2 

HSETC 

1380 

DO  32  0-1,3 

HSETC 

1390 

BI3.J.3)  -  813,0,3)  -  C 1 *TRI J , KH  >  ♦  C2*EIJ,3,KH) 

HSETC 

1400 

DO  47  LL-1,3 

HSETC 

1410 

L  -  4  -  LL 

HSETC 

1420 

IF  IKMIL  ).EQ.0>  GO  TO  47 

HSETC 

1430 

DO  42  J-1,3 

HSETC 

1440 

VIJ)  -  R(  M }*B( 3 , J  ,  L  )  ♦  SGN-BI M , J , L  ) 

HSETC 

1450 

KL  -  KMIL) 

HSETC 

1460 

KML  -  KNL  ♦  KL  -  K 

HSETC 

1470 

KIL  -  NLI 1 , KML  ) 

HSETC 

1460 

IF  I IBARI 5,KIL).NE.0>  GO  TO  43 

HSETC 

1490 

KHL  -  KH  ♦  KL  -  K 

HSETC 

1500 
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CALL  DOT31  ; E< 1 , 1 , KHL ). V.T) 

HSETC 

15  iO 

T<2>  ■  R<M)«S<3,L>  +  SGN-S( M, L  ) 

HSETC 

1520 

CALL  MAT31  (£<1,1 ,KHL ) ,T,V ! 

HSETC 

1530 

43 

IF  (LL.NE.l  )  JO  TO  44 

HSETC 

1540 

VE  -  V< 1 >«£< 1,M,KH>  ♦  V(2)»E( 2.M.KH)  *  V( 3 >«E ( 3 , M, KH  ) 

HSETC 

1550 

EV  -  DSIGN(ONE,VE  )/D5QRT(V( 1 >**2*V(  2>**2+V(3)**2> 

HSETC 

1560 

IF  ( IABS( !3AR( 1 , KI ) 1.GT.100)  EV  -  1.0 

HSETC 

1570 

RH  -  EV-RH 

HSETC 

1590 

44 

IF  (  IJK(K.KL).NE.O)  GO  TO  45 

HSETC 

1530 

10  -  10+1 

HSETC 

1600 

IOK( K , KL  >  -  IJ 

HSETC 

1610 

45 

KK  -  I JK( K , KL  ) 

HSE  re 

1620 

DO  45  0-1 ,3 

HSETC 

1630 

VEV  •  EV*V( J  ) 

HSETC 

1640 

DO  46  1-1,3 

HSETC 

1650 

46 

C(  I  ,0  ,  KK  )  *  C'.I.O.KK)  *  E<  1  ,M,KH  >*VEV 

HSETC 

1660 

47 

CONTINUE 

HSETC 

1670 

DO  41  1-1,3 

HSETC 

1680 

41 

RHS(I.K)  -  RHS(I.K)  ♦  RH-E< I ,M,KH) 

HSETC 

1690 

GO  TO  50 

HSETC 

1700 

48 

KK  -  IOKIK.K) 

HSETC 

1710 

DO  49  1-1,3 

HSETC 

1720 

DO  49  0-1,3 

HSETC 

1730 

49 

C( 1 ,0 , KK  )  -  C( I ,0 ,KK  >  ♦  E< I,H,KH)*E(0,M,KH) 

HSETC 

1710 

50 

CONTINUE 

HSETC 

1750 

60 

CONTINUE 

HSETC 

1750 

RETURN 

HSETC 

1770 

END 

HSETC 

1780 

oooooo  ooo  oooo  oooo 


SUBROUTINE  INI TAL 

PERFORMS  CARD  INPUT  AND  COMPUTATIONS  FOR  INITIAL 
POSITIONING  OF  THE  CRASH  VICTIM'S  BODY  SEGMENTS. 


REV  19  05/2S/79 


IMPLICIT  R£AL*8(A-H,0-Z) 

COMMON/CONTRL/  TIME , NSEG , N JNT , NPL , NBLT , NBAG . NVEH , NGRND , 

NS ,NQ,NSD ,  NFLX.NHRNSS , NWINDF , NJNTF ,NPRT<  36 ) 

COMMON /SGMNTS/  D( 3,3,30  > ,WMEG<  3,30) ,WMEG0<  3.30),U1(3,30),U2(3,30>, 
SEGLP( 3,30  )  ,SEGLV( 3. 30  1  ,SEGLA( 3,30  > ,NSYM( 30 ) 

COMMON/ DE SC RP/  PHI<3,30>,W<30>,RW(30>,SR(3.60>,HA(3,60>.HB<3,60>, 
RPHI(3,30),HT(3,3,60),SPRING(5,90),VISC(7,90), 
JNT(30),IPIN(30),ISING<30),IGLQB(30),JOINTF(30> 

COMMON /VPOSTN/  ZPLT<3),SPLT(3  > ,AXV<  3,6)  , VATAB ( 6,101,6), 

VT0 ( 6  )  , VDT( 6 ) , T I MEV( 5 ) .OMEGV! 6 > . NVTAB ( 6  >  .  INDXV<  6  > 

COMMON/TITLES/  DATE <  3  )  ,C0MENT( 40 ) , VPSTTK  20  > , 3DYTTL ( 5  > , 

BLTTTL!  5.8 ) ,PLTTL( 5,30 ) , BAGTTL (5,6) , 3EG! 30  > , 

JOINT! 30 ) ,CGS( 30 ) ,0S<  30 ) 

REAL  DATE . COMENT . VPSTTL .BOYTTL , BLTTTL , P  L  TTL , BAGTTL , S EG .JOINT 

LOG ICAL  *  1  CGS.JS 

COMMON /CNSNTS/  PI  ,  RAD  I AN , G , TH I RD , E P S ( 24  ), 

*  UNITL  .UNITM.UNITT ,GRAVTY<  3  > 

COMMON/TEMP VS/  TMP( 18  )  ,WMGDEG<  3,30 ),T(3),S(3),A(3.2),Z(3.3) 

NOTE  :  CHAIN  ALSO  USES  TEMPVS. 

DIMENSION  YPR( 3 , 30  )  ,  IYPR(4,30> 

INPUT  CARD  G.l.A  (PLOT  COORDINATES  OF  VEHICLE  REFERENCE  ORIGIN) 


READ ( 5,22)  ZPLT , I  1 , J 1 . I  2 , J 2 , I  3 
22  FORMAT! 3F10.0.SI4  > 

S<  1  )  -  10.0 
S<  2  )  -  6.0 

S( 3  )  *  1.0 


IF  01*0,  INPUT  CARD  G.l.B  (PLOT  SCALING  INPUT) 

IF  (Jl.NE.O)  READ  (5,22)  S 
SPLT<  1  )  »  1 . 0 / S ( 3  ) 

SPLT( 2  >  -  1 . 0/S<  3  ) 

SPLT( 3  )  -  -(  S(  1 )/S( 2 ) )/S( 3  ) 

WRITE  (6,23)  ZPLT, 11,01, 12, J2, 13,  S 
23  FORMAT!  ' 1  SUBROUTINE  I N I TAL  INPUT'  , 85 X . ' CARD  G.i'// 

*  '  ZPLT(X)  ZPLT(Y)  ZPLT(Z)  11  J1  12  J2  13’, 

*  '  SPLT( 1  )  SP LT <  2  >  SPLT< 3 )' /3F10 .0,516 , 3F 10.2 > 

INPUT  CARDS  G.2.A  -  G.2.N 

INITIAL  LINEAR  POSITION  (IN)  AND  (IF  13*1)  VELOCITY  (IN/SEC) 

OF  EACH  BASE  80DY  SEGMENT.  IF  13*0,  VELOCITY  WILL  BE  SET  TO 
INITIAL  VELOCITY  OF  VEHICLE.  INPUTS  IN  INERTIAL  REFERENCE. 


I N I TAL 

0010 

INI TAL 

0020 

I N I TAL 

0030 

1 N I TAL 

0040 

INITAL 

0050 

I N I TAL 

0060 

INITAL 

0070 

INITAl 

0030 

INITAL 

0090 

INITAL 

0100 

INITAL 

0110 

INITAL 

0120 

INITAL 

0130 

INITAL 

0140 

INITAL 

0150 

INITAL 

0150 

INITAL 

0170 

INITAL 

0180 

INITAL 

0  190 

INITAL 

0200 

INITAL 

0210 

INITAL 

0220 

INITAL 

0230 

INITAL 

0240 

INITAL 

0250 

INITAL 

0260 

INITAL 

0270 

INITAL 

C  7  -3  j 

INITAL 

0200 

INITAL 

0300 

INITAL 

0310 

INITAL 

0320 

INITAL 

0320 

INITAL 

0340 

INITAL 

0330 

INITAL 

0  3  50 

INITAL 

0370 

INITAL 

0330 

INITAl 

0390 

INITAl 

0400 

INITAL 

0  5  10 

INITAL 

0  4  20 

INITAL 

0430 

INITAL 

0440 

INITAL 

0450 

INITAL 

0450 

INITAL 

0470 

INITAL 

0430 

INITAL 

0  490 

INITAL 

0  5  0  0 
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INITAL 

0510 

00  37  J-l  ,  NSEG 

1N1TAL 

0520 

I F { J.GT. 1 . AND. IABS< JNT< J-l ) > -CT.0 >  30  TO  37 

INITAL 

0530 

READ! 5,24  )  ( SEGLP<  I  .  J  )  .  1-1  .3  > .( SEGLVf  I  ,  J  >  ,  I  »  1  ,  3  > 

INITAL 

0540 

24 

FORMAT  (6F10.0  ,  413) 

INITAL 

0550 

I F (  I3.GT.0  )  GO  TO  37 

INITAL 

0560 

DO  36  X  -  1  ,  3 

INITAL 

0570 

36 

SEGLVf  I  ,  J  )  -  SEGLVf  1 , NVEH  ) 

INITAL 

0a80 

37 

CONTINUE 

INITAL 

0590 

INITAL 

0600 

INPUT  CAROS  G.3.A  -  G.3.N 

INITAL 

06 :  o 

INITAL 

0  6  3  0 

FOR  EACH  BODY  SEGMENT  SUPPLY  YAU,  PITCH  AND  ROLL  (DEGREES) 

INITAL 

0630 

AND  (IF  1 3  - 1  )  THE  ANGULAR  VELOCITY  IN  LOCAL  REFERENCE  (DEG/SEC). 

INITAl 

0  6  4  u 

IF  13-0.  THE  ANGULAR  VELOCITY  (BLANK  ON  INPUT  CARDS)  WILL  BE  SET 

INITAL 

06  5  0 

EQUAL  TO  THE  INITIAL  ANGULAR  VELOCITY  OF  THE  VEHICLE. 

INITAL 

0660 

INITAL 

0670 

FIRST  -  0.0 

INITAL 

0630 

DO  40  0  =  1  ,  NSEG 

INITAL 

0  6  9  0 

READ  (5,24)  <YPR(  1,0),  1-1,3) , <  WMGDEGt  I,J).I-l,3).(IYPR!l.J).l-l,4) 

INITAL 

0?  JO 

I  D  1  «  I  YPR(  1 . J ) 

INITAL 

07  10 

DO  38  1-1,3 

INITAL 

0720 

IF  <  I  D  1  . EQ . 0  >  I  Y  P  R (  I  .  J  )  =  I 

INITAL 

0730 

38 

WMEG(I.J)  -  UMG0EG<  I , J  l-RADIAN 

INITAL 

0740 

IF  (  I  D  1  .  GE . 0  )  GO  TO  60 

INITAL 

0750 

INITAl 

0760 

READ  CARD  G.3.02  FOR  SEGMENT  NO.  0  WHEN  lYPR(l.J)  IS  NEGATIVE. 

I N I TAL 

07  ’0 

INITAl 

0  7  2  0 

READ  ( 5,24  )  A ,  I  I  ,  I  <  .  J J  .  J K 

INITAL 

0  7  3  3 

IJ  -  II 

INITAl. 

oe  .  3 

LK  -  IK 

INITAL 

0  3  .  J 

DO  54  K-1,2 

INITAL 

0820 

IF  (  10  .GT.O  )  GO  TO  52 

INITAL 

0830 

DO  51  1-1,3 

INITAL 

0340 

51 

2 (  I  ,  L K  >  -  A<  I  ,  K  ) 

INi  ta.. 

0850 

GO  TO  53 

INITAL 

0860 

52 

DAI  =  A (  i  , K  )  *  RAO  IAN 

INITAL 

08  70 

DA2  »  A ( 2 , K  )  -RAO  IAN 

INITAL 

0830 

S A  1  -  DS I N< DAI  ) 

I N I TAL 

0890 

SA2  -  D S I N ( DA2  ) 

INITAL 

0900 

CA1  -  DCOS( DA  1  ) 

INITAL 

09  i  3 

CA 2  =  DCOS<  DA2  ) 

INITAl 

0  9  2  0 

101  -  IJ+1 

INITAl 

0930 

102  -  10+2 

INITAL 

C  9  4  0 

IF  (101  . GT . 3 )  101*  101-3 

INITAL 

0950 

IF  <  102. GT. 3  )  102=  102-3 

INITAL 

096  0 

SGN  «  1.0 

1 N I TAl 

0  9  ~  0 

IF  (SA1.LT.0.0  .AND.  CA2.LT. 0.0)  SGN  =  -1.0 

INITAL 

0930 

Z(  10  .LK  >  =  SGN-SA1 -CA2 

INITAl 

0590 

Z<  101  ,  L K  )  =  SGN-SA1 -SA2 

INITAL 

I  000 

i  ;  i 


non 


Z(IJ2.LK>  •  SGN-CA1  *CA2 

53  IJ  ■  JO 

54  IK  •  JK 

ZDOTIJ  ■  Z(  l  ,  IK)*Z( 1 .JK)  ♦  Z<  2  ,  1 K  )  *Z(  2  ,  JK  )  ♦  Z< 3 , 1 K  )  *Z< 3 , JK > 

ZDOTII  -  Z<  1 . IK >-Z< 1 , IK  )  ♦  Z!  2. IK >-Z< 2 , IK  )  ♦  Z(  3 , 1 K >*Z( 3 , I K  > 

RATIO  »  ZDOTIO/ZOOT!  I 
OO  55  1*1.3 

55  Z(I.OK)  -  Z ( I .OK)  -  RATIO«Z< I . IK) 

LK  -  6-IK-JK 

IT  «  MOO( JK-  I  K*3 , 3  > 

IF  (IT.EQ.l)  CALL  CROSSIZI 1 . IK >.Z(  1 ,JK) ,Z( 1 ,LK)  > 

IF  (IT.E0.2)  CALL  CROSSIZI 1,JK),Z( 1 . I K  > , Z(  l.LK)  ) 

00  57  K-1,3 

I YPR( K,  J  )  *  4-K 
SUM  *  0.0 
DO  56  1-1.3 

56  SUM  -  SUM  ♦  Z<  I  ,  K  )  **2 
SCUM  •  DSQRTI SUM ) 

00  57  1-1.3 

57  D( K. I . J  >  -  Z( I , K  ) /SQUM 

CALL  YPRDEG  ( 0 (  1 . 1 . J  )  . YP R<  1  , 0  )  ) 

IF  (FIRST. EQ. 0.0)  WRITE  (6.58) 

58  F ORMAT (  ' 0  INITIAL  ANGULAR  ROTATIONS  COMPUTED  FROM  CARDS  G.3.J2'// 

-  '  SEGMENT' .10X, 'SEGMENT  PRIMARY  AXIS' . 

*  12X, 'SEGMENT  SECONDARY  AX  I S '. 30X .' ANGULAR  ROTATIONS  (DEG)'/ 

*  '  NO.  SEG‘.9X,  'AJ  ',8X,  'A2',8X.  'A3'  .11X,  '81  '  ,8X,  '  B  2 '  ,8X, 

*  ' B3  '  ,  7X  ,  '  I  I  IK  JO  OK'  ,9X .' YAW'  ,6X. 'PITCH  '  ,5X,  'ROLL  '/ ) 
FIRST  -1.0 

WRITE  (6.59)  0 ,SEG( J  )  .A, I  I . IK.OJ .OK. ( YPR(  I  ,  J  )  , 1-1 .3 > 

59  FORMAT  (  1 4 , I  X . A4 . 3 X . 3F 1 0 . 3 . 3X . 3F 1 0 . 3 . 3X . 4  I  4 . 3X . 3F 1 0 . 3 > 

60  M  -  I YPR( 4,0  ) 

IF  (M.EQ.O)  M-NGRNO 

! F  (M.GE.O  -AND.  M.LE.NSEG)  STOP  24 
IF  (M.LT.O  .ANO.  -M . NE . I ABS( JNT( J- 1 ) > )  STOP  25 
CALL  ORCIOK  ( D.YPR, IYPR.HT.0  ) 

IF  ( I3.GT.0)  GO  TO  40 

CALL  D0T31 ( D( 1 , 1 , NVEH  )  ,WMEG<  1 , NVEH ) . T ) 

CALL  MAT31 ( D( 1 , 1 ,0 ) ,T,WMEG<  1 . J  )  ) 

DO  39  1-1.3 

39  WMGDEG ( I , J )  -  WMEGt I , J l/RADIAN 

40  CONTINUE 
CALL  VEHPOS 
CALL  CHAIN 

OUTPUT  INITIAL  BOOT  SEGMENT  POSITIONS. 

WRITE  (6.42)  UNITL.UNITL.UNITT 

42  FORMAT! '0  INITIAL  POSITIONS  (INERTIAL  RE FERENCE >', 70X ,' CARDS  G.2'/ 

*  /'  SEGMENT' . 1 IX .' L INEAR  POSITION  (',A4,')', 

*  14X. 'LINEAR  VELOCITY  <  ' A4 , ' / ’ ,A4 , '  >  '  / 


INITAL  1010 
INITAL  1020 
INITAL  1030 
INITAL  1040 
INITAL  1050 
INITAL  1060 
INITAL  1070 
INITAL  1080 
INITAl  1090 

in: t a  _  lioo 

INITAL  1110 
INITAL  1120 
INITAL  1130 
INITAL  1140 
INITAL  1150 
INITAL  1160 
INITAL  1170 
INITAL  1180 
INITAL  1190 
INITAL  1200 
INITAL  1210 
INITAL  1220 
INITAL  1230 
INITAL  1240 
INITAL  1250 
INITAL  1260 
INITAL  1270 
INITAL  1280 
INITAL  1290 
INITAL  1300 
INITAL  1310 
INITAL  1320 
INITAL  1330 
INITAL  1340 
INITAL  1350 
INITAL  1360 
INITAL  1370 
INITAL  1380 
INITAL  1390 
INITAL  1400 
INITAL  1410 
INITAL  1470 
INITAL  1430 
INITAL  1440 
INITAL  1450 
INITAL  1460 
INITAL  1470 
INITAL  1480 
INITAL  1490 
INITAL  1500 


142 


*  '  NO.  SEC  ,  2(  9X  ,  1  X  '  .UK,  '  V  '  ,  1  IX,  '  2  '  ,  SX  )  > 

WRITE  (6,43)  ( 0 ,SEG< J >,( SEGLP! I .J >. I-l . 3  >  .< SEGLV! I , J  ) . 1-1 .3  ) 

*  .J-l.NSEG) 

43  FORMAT! 1 4 , 1 X . A4 . 3X , 3F 1 2 . 5 , 3X . 3F 1 2 . 5  ) 

WRITE  <6.44)  UNITT 

44  FORMAT!  ' 0  INITIAL  ANGULAR  ROTATION  AND  VE LOC l T Y '  , 7 1 X  .  ' CARDS  G . 3 ' // 

*  '  SEGMENT1 . 1 IX. 'ANGULAR  ROTATION  <  DEG  )  1 

*  I4X, ‘ANGULAR  VELOCITY  < DEG/ 1 .A4 . ' ) ' / 

*  NO.  SEG1 ,8X. 'YAW' ,8X. 'PITCH' ,7X.  ROLL ' . 

*  13X. ' X1 .  I1X,  '  Y'  .  1  IX.  Z' . 15X. '  I  YPR  '  > 

WRITE  (6,46)  (0 .SEG! J >. < YPR! I , J ) . I-l .3 > . (WMGDEG! I , J > . I-l .3 > . 

*  ( IYPR! I .0  ), I-l .4  ) . J-l .NSEC  ) 

46  FORMAT! I4.1X,A4.3X,3F12.5.3X,3F12.5.3X.414> 

IF  ( I3.EQ.0  )  WRITE  <  6.45  ) 

45  FORMAT! '0  LINEAR  AND  ANGULAR  VELOCITIES  HAVE  BEEN  SET  EQUAL  TO  THE 

*  INITIAL  VEHICLE  VELOCITIES.') 

IF  < NHRNSS.NE .0  )  CALL  H8PLAY 

IF  <I1.EQ.1S)  CALL  EQUILB  <YPR,IYPR) 

CALL  ELT IME ( 2 , 2  ) 

RETURN 

END 


inital 

1510 

INITAL 

1520 

INITAL 

1530 

INITAL 

1540 

INITAL 

1550 

INITAL 

1560 

INITAL 

1570 

INITAL 

1580 

INITAL 

1590 

INITAL 

1600 

INITAL 

1610 

INITAL 

1620 

INITAL 

1630 

INITAL 

1640 

INITAL 

1650 

INITAL 

i  6  6  0 

INITAL 

1670 

INITAL 

1680 

INITAL 

1690 

INITAL 

1700 

INITAL 

1710 
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SUBROUTINE  KINPUT 

REV  29  09/13/79 

PERFORMS  THE  FOLLOWING  CARO  INPUT  AFTER  CARDS  E.1-E.4  (SUBROUTINE 
CINPUT)  AND  BEFORE  CARDS  F.l-F.S  (SUBROUTINE  FINPUT). 

CARD  E.5  -  NWINDF:  NO.  OF  WIND  FORCE  FUNCTIONS  ON  CARDS  E.6 
-  NJNTF  :  NO.  OF  JOINT  FORCE  FUNCTIONS  ON  CARDS  E.7 
CARDS  E.6  -  DEFINITIONS  OF  WIND  FORCE  FUNCTIONS 
CAROS  E.7  -  DEFINITIONS  OF  JOINT  RESTORING  FORCE  FUNCTIONS 

IMPLICIT  REAL*8(A-H,0-Z> 

COMMON/CONTRl/  T I ME . NSE G . NJNT . NP L . NSL T . N B AG . NVE H . NGRND , 

*  NS, NQ.NSD.NFLX.NHRNSS, NWINDF, NJNTF, NPRT( 36  > 
COMMON/TABLES/MXNTI , MXNTB . MXTB 1 . MXT9 2 , NT  I ( 5 0 ) , NTA6 ( 500  ) ,TAB(  2000  ) 
COMMON /TEMP VS/  JTITLE(5,5i ),NF( 5  >,MS<  3  >  ,  KT I TL  E ( 3  1  ),TH<  50) 

NOTE:  TEMP VS  IS  SHARED  HERE  WITH  SUBROUTINES  CINPUT  AND  FINPUT. 

real  blank, jtitle .ktitle 

DATA  BLANK/'  */ 

COMMON /CNS NTS/  PI  .  RAD  I AN , G . TH I RD , E P S( 24  > . 

*  UNITL ,UNITM,UNITT.GRAVTY(  3 ! 

11  F  ORMAT (216) 

J1  -  MXTB 1 ♦ 1 

IF  ( NWINDF .LE .0  )  GO  TO  31 
DO  30  K»l. NWINDF 

INPUT  CARD  E.6. A  -  FUNCTION  NO.  AND  TITLE 

READ  (5,12)  I ,( KTITLEf J >,J-1 .5 > 

12  FORMAT! I4.4X.5A4  > 

WRITE  (6.13)  I,(KTITlE(J).0»1,S),I,JI 

13  FORMAT (  ' 1  WIND  FORCE  FUNCTION  NO .  '  , I  4 , 4X , 5A4 . 1  OX ,  ' NT I (  '  , 1 2 , '  )  »', 

*  I5.43X, 'CAROS  E  .  6 ‘ / / > 

IF  (  I . LE . 0 . OR . I . GT . 50  )  WRITE  (6.14) 

14  FORMAT! '0  IMPROPER  FUNCTION  NO.  PROGRAM  TERMINATED.') 

IF  (  I  .  LE . 0 . OR . I . GT . 50 )  STOP  11 

IF  (NTK I J.NE.O)  WRITE  (6,15)  I 

15  FORMAT!  ' 0  FUNCTION  NO. '.14,'  HAS  ALREADY  BEEN  INPUTTED  AND  WILL  BE 

*  REPLACED  BY  THIS  FUNCTION.) 

NTK  I  )  -  U1 

DO  16  0-1,5 

16  JTITLE! 0 , I >  -  KT I TLE ( J  ) 

J2  «  J 1 *4 

INPUT  CARD  E.6.B  -  03  THRU  D4  (FOR  NOW  A  3LANK  CARD) 

READ  (5,17)  ( TAB! J  ) , J-0 1  .  J2  > 

WRITE  (6.18)  (TAB(J), 0-01.02) 

17  FORMAT! 6F 12.0 > 

18  FORMAT ( 10X, ’00' , 13X, '01 ’ , I3X, ’02’ , I3X, ‘03’ , I3X, 1 04 ’ /5F 1 5 . 4// ) 

01  -  J2+1 


KINFUT 

00  !  C 

<•  INPUT 

0020 

.<  I  NPUT 

oo:  o 

KINPUT 

0340 

KINPUT 

0050 

KINPUT 

0050 

KINPUT 

0070 

KINPUT 

0030 

KINPUT 

0090 

KINPUT 

01  30 

KINPUT 

Oil) 

KINPUT 

0120 

KINPUT 

0130 

KINPUT 

014  0 

KINPUT 

01  5  3 

KINPUT 

0150 

'■INPUT 

01  70 

KINPUT 

0150 

KINPUT 

01  30 

KINPUT 

0200 

KINPUT 

0210 

KINPUT 

0220 

KINPUT 

023  0 

KINPUT 

0240 

KINPUT 

C250 

KINPUT 

0250 

KINPUT 

02‘3 

KINPUT 

0230 

KINPUT 

0290 

KINPUT 

0300 

KINPUT 

0310 

KINPUT 

0330 

KINPUT 

0330 

KINPUT 

0240 

KINPUT 

0350 

KINPUT 

0350 

KINPUT 

0370 

KINPUT 

0390 

KINPUT 

0390 

KINPUT 

04  00 

KINPUT 

04  10 

KINPUT 

0420 

KINPUT 

0430 

KINPUT 

0440 

KINPUT 

0450 

KINPUT 

0450 

KINPUT 

0470 

KINPUT 

0480 

KINPUT 

0430 

KINPUT 

0500 
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INPUT  CARD  E.o.C  -  NTMPTS 

Rc AO  (5.11)  NTMPTS 
WRITE  (6,19)  NTMPTS 

19  FORMAT ( ’ 0  WIND  FORCE  TABLES  FOR  ‘.IS,'  TIME  POINTS.'// 

*  1 1  X , ' T ' ,  1  4X  , 'FX(T  )  ,15X.  ‘ F  Y( T  )  1  ,  1  5X  , 'FZ(T)'  /) 

TA8101  )  *  NTMPTS 

J1  -  Jl  +  l 

02  -  0 1 +4“NTMPTS- 1 

INPUT  CAROS  E.6.D-E.6.N  -  NTMPTS  CARDS  OF  T , F X ( T > , F Y ( T  ) , FZ( T  ) 

READ  (5,29)  ( TAB ( J  ) . J « J I . J2  ) 

WRITE  ( 6 . 2  i  )  ( TA3 ( J  > , 0“ J 1 , 02  > 

20  FORMAT ( 4F 1 2 . 0 ) 

21  FORMAT  (3X.F12.6.3G20.6) 

91  »  02*1 

30  CONTINUE 

31  IF  (NONTF.LE.O)  GO  TO  51 
DO  50  K*1 , NONTr 

INPUT  CARD  £.7. A  -  FUNCTION  NO.  AND  TITLE 

READ  (5,12)  I,(KTITLE(J),J»1,5) 

WRITE  (6,32)  I, (KTITLE(U). 0*1,5), 1.01 

32  FORMAT (  ‘ 1  0OINT  FORCE  FUNCTION  NO. ‘ , 1 4 , 4X , 5A4 , 10X . * NTI <  ' . I  2 , ‘  > 

*  I5.42X, 'CAROS  E - 7 1 // > 

IF  < I.LE.0.OR.I.GT.50)  WRITE  (6.14) 

IF  ( 1 -LE.0.OR.1 .GT.50)  STOP  12 
IF  ( NTI ( I  ) . NE . 0  )  WRITE  (6,15)  I 
NT  I ( I  )  -  01 
DO  33  0-1,5 

33  0TITLE<0  ,  I  1  -  KTITLE<  0  ) 

INPUT  CARD  E.7.B  -  DO , D 1 , D2 , D3 , 04  (FOR  NOW  A  BLANK  CARD). 

02  *  01+4 

READ  (5.17)  <  TAB ( 0  ) , 0*0 1 , 02  > 

WRITE  (6,18)  ( TAB ( 0  > , 0*0 1 , 02  ) 

01  -  02+1 

INPUT  CARD  E.7.C  -  NTHETA ,  NPH I 

READ  (5,11  >  NTHETA. NPHI 
TAB( 0 1  )  *  NTHETA 

TAB( 0 1+1 >  -  NPHI 
01  -  01+2 

IF  (NTHETA. LT.O)  GC  TO  38 
DO  35  0*1 .NTHETA 

35  TH<  0  )  •  DFLOAT(U-l 1*180. 0/DFLOAT( NTHETA- 1  ) 


KINPUT  0510 
K1NPUT  0520 
KINPUT  0530 
KINPUT  0540 
KINPUT  0550 
KINPUT  0550 
KINPUT  0570 
KINPUT  0580 
KINPUT  0590 
KINPUT  06)0 
KINPUT  0610 
KINPUT  0620 
KINPUT  0630 
KINPUT  0640 
KINPUT  0650 
KINPUT  0660 
KINPUT  0670 
KINPUT  0650 
KINPUT  0690 
KINPUT  0700 
KINPUT  0710 
KINPUT  0720 
KINPUT  0730 
KINPUT  0740 
KINPUT  0730 
KINPUT  0760 
KINPUT  0770 
KINPUT  0730 
KINPUT  0790 
KINPUT  0800 
KINPUT  0810 
KINPUT  0820 
KINPUT  0830 
KINPUT  0810 
KINPUT  0950 
KINPUT  0860 
KINPUT  0870 
KINPUT  0880 
KINPUT  0890 
KINPUT  0900 
KINPUT  0910 
KINPUT  0920 
KINPUT  0930 
KINPUT  0940 
KINPUT  0950 
KINPUT  0950 
KINPUT  0970 
KINPUT  0980 
KINPUT  0990 
KINPUT  1000 
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WRITE  ( 6 , 36  >  NTHETA, NPHI,(TH(J),J-2, NTHETA) 

<  I  N  P  l'  T 

1010 

36  FORMAT (  1 0  FUNCTION  13  TABULAR  FOR'  ,13,'  X‘,I3,'  VALUES 

OF  THETA  A 

<  I  N  P  0  T 

1020 

*ND  PHI ' //30X. 'THETA ' /5X , 'PHI ' ,5X, 'THETAO' .F16.3.4F20.3/ 

KINPUT 

1030 

*  ( 15X.5F20.3  )  ) 

K  I  N  P  'J  T 

1040 

37  FORMAT (F9.2,F10.3,5G20.7/< I9X.5G20.7!) 

K  I  N  P  u  r 

1030 

GO  TO  40 

< I NP  UT 

1050 

38  NPOLY  -  -NTHETA  -1 

K INPUT 

1070 

WRITE  (6.39)  NPOLY.NPHI , ( 3LANK.J , J-l .NPOLY > 

KINPUT 

1030 

39  FORMAT< ‘ 0  FUNCTION  IS  COEFFICIENTS  OF'  ,13.'  ORDER  POLYNOMIALS 

IN 

KINPUT 

10  9  0 

•(THETA-THETAO >  FOR', 13,'  VALUES  OF  PHI.'// 

KINPUT 

1  100 

*  27X. ‘COEFFICIENTS  OF  { THETA-THETAO ) * *N ' / 

(INPUT 

1110 

*  5X, ' PHI  '  ,5X, 'THETAO '  ,7X ,5<A4 N  - '  , I 2 . 1 1 X  ) / ( 26X , A4 , ‘ N 

11X. 

KINPUT 

112  0 

*  A4,'N  » '  , 12 , 1 1X.A4 , ' N  - ' , 1 2 , 1 1 X , A4  .  ‘ N  * '  ,  I 2 , 1 1 X , A4  ,  ‘ N 

■  '  ♦  I  2  ) 

) 

KINPUT 

1  1  30 

40  WRITE  <  6.21  ) 

KINPUT 

1140 

DO  49  I - 1 , NPH I 

K  I  N  P  U  ” 

i  1  30 

PHIDEG  »  DF LOAT (  I - 1  )*360 . O/DFLOAT ( N? H I  >  -  180.0 

<  I  N  P  U  T 

1  1  -  .  j 

KINPUT 

i :  -o 

INPUT  CARDS  E.7.D  -  3.7.N  NPHI  SETS  WITH  NTHETA  ITEMS  PER  SET. 

K  INP-JT 

1 1  a  :■ 

EACH  SET  I  IS  FOR  PHI(I)  -  -180  * (  I  -  i  /  * 3 60 / NP H  I  DEGREES  AND 

KINPUT 

1190 

ASSUMES  DATA  FOR  PHKNPHI  +  l)  «  130  IS  SAME  AS  PHI(l) 

*  -180 

<  INPUT 

1200 

KINPUT 

12  10 

J2  »  J1  ♦  IABS(NTHETa)  -1 

KlNPU" 

1220 

READ  (5.17)  <  TAB ( J  )  , J-J 1 , J 2  ) 

KINBUT 

1230 

WRITE  (6,37)  PHIDEG, (TABU). J-J1.J2) 

KINPUT 

1240 

IF  ( NTHETA.LT. 0 )  TAB ( J 1  )  =  TAB( 0 1  >»RAD IAN 

KINPUT 

1230 

IF  (NTHETA.  LT.O)  G.O  TO  49 

KINPUT 

125  0 

KINPUT 

1  2’0 

FOR  TABULAR  DATA,  FILL  IN  ZERO  VALUES  WITH  INTERPOLATED 

NEGATIVE 

*  I NPUT 

1230 

VALUES.  OVERWRITE  VALUE  IN  FIRST  COLUMN  (SUPPLIED  AS  THETAO)  WITH 

KINPUT 

1290 

VALUE  FOR  THETA  *  0  AND  ALL  OTHER  ZERO  VALUES. 

p INPUT 

1300 

KINPUT 

13  10 

THETAO  *  TAB ( 0 1  ) 

K1NPUT 

1320 

IF  (THETAO. EO. 0. 0  )  GO  TO  49 

KINPUT 

1330 

00  *  'rHFTAO*DFLOAT<  NTHETA-1  J/180.0  ♦  1.0  +  EPS(6> 

KINPUT 

1340 

001  »  01*00 

KINPUT 

1350 

I  ERROR  -  0 

KINPUT 

1350 

IF  (001.GT.02)  I ERROR  -  1 

KINPUT 

1370 

IF  (TAB(OOl).LEO.O)  IERROR  *  2 

KINPUT 

1380 

IF  (  IERROR. NE.O)  GO  TO  46 

KINPUT 

1390 

DO  45  0-1,00 

KINPUT 

1400 

010  »  01+0-1 

KINPUT 

1410 

IF  (O.NE.l.AND.TAB(OlO).GT.O.O)  IERROR  •  3 

KINPUT 

1420 

45  TAB (010)  -  TAB( 001  )*( TH(0  l-THETAO  )/( TH( 00  +  1  )-THETA0  ) 

KINPUT 

1430 

46  IF  ( IERROR. NE.O)  WRITE  (6,47)  IERROR 

KINPUT 

1440 

47  FORMAT! ' 0  INPUT  ERROR.  INCONSISTENT  VALUE  OF  THETAO.  IERROR  -' 

.12. 

KINPUT 

1450 

*  *  PROGRAM  TERMINATED. ' ) 

KINPUT 

1  4  a  0 

IF  (  IERROR. NE.O)  STOP  13 

KINPUT 

1470 

49  01  -  02+1 

KINPUT 

1480 

50  CONTINUE 

KINPUT 

1490 

51  MXTB1  -  01-1 

KINPUT 

1500 

146 


RETURN 

END 


K INPUT  1510 
< I NP  UT  1520 
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SUBROUTINE  SPLINE  (X.Y.F.N.L) 

SPLINE 

0010 

c 

REV 

19  05/14/79 

SPLINE 

0020 

c 

SPLINE 

0030 

c 

ROUTINE 

TO  FIT  A  SET  OF  POLYNOMIALS  OF  DEGREE  L 

SPLINE 

0040 

c 

TO  A  SET 

OF  GIVEN  DATA  POINTS  < X< I > , Y< I > , I » 1 , N > 

SPLINE 

0050 

c 

SPLINE 

0060 

c 

FUNCTION 

IS  OF  FORM: 

SPLINE 

0070 

c 

SPLINE 

0080 

c 

Y  =»  F  (  2  ,  K  )  ♦  F  (  3  ,  K)*DX  ♦  F(4,K)*0X»*2  ♦  F(5,IO*DX**3 

SPLINE 

0090 

r 

SPLINE 

0100 

C 

WHERE  : 

DX  -  XX  -  F  d  ,  K  ) 

SPLINE 

0110 

C 

F  (1  ,  K  )  .LE.  XX  .LT.  F(1,K*1>  :  (SETS  K> 

SPLINE 

0120 

C 

IF  <XX.GT.F< l,N>>  i  USE  K-N,  CONSTANT  FIT  TO  Y(  N ) 

SPLINE 

0130 

C 

IF  (XX.LT.Fd.ld  ;  EXTRAPOLATED  FIT  FOR  K* 

1 

SPLINE 

0140 

C 

SPLINE 

0150 

C 

Fd  ,  I  >  -  X(  I  >  ,  I - 1  . N 

SPLINE 

0160 

C 

F(2,I)  *  Y(I)  ,  I - 1  . N 

SPLINE 

0170 

c 

SPLINE 

0130 

c 

DEGREE 

L  CONTINUITY 

SPLINE 

0190 

c 

0  F(3,I)  -  F ( 4  ,  I  )  ■  F  {  5  ,  I  >  *  0  ,  I  - 1  .  N 

NONE 

SPLINE 

0200 

c 

1  F<  4. I >  »  F<  5, I  )  -  0  .  I  - 1  .  N 

Y 

SPLINE 

0210 

c 

2  F ( S , I  )  *  0  .  I»1  ,N 

Y  ,  Y  ’ 

SPLINE 

0220 

c 

3  CUBIC  SPLINE 

Y  ,  Y  ’  ,  Y  ’  ' 

SPLINE 

0230 

c 

SPLINE 

0240 

c 

F(K,N)-0  FOR  K-3,5  IN  ALL  CASES 

SPLINE 

0250 

c 

SPLINE 

0260 

c 

FOR  L-2 

AND  L»3  THE  CHANGES  IN  THE  L'TH  DERIVATIVES  ARE 

MINIMIZED 

SPLINE 

0270 

c 

SPLINE 

0280 

c 

SPECIAL 

CASES: 

SPLINE 

0290 

c 

N=*1 

;  TREATED  AS  L-0 

SPLINE 

0300 

c 

N>2 

i  TREATED  AS  L«MIN(  L ,  1  ) 

SPLINE 

0310 

c 

L  <  0 

TREATED  AS  L»0 

SPLINE 

0320 

c 

L  >3 

i  TREATED  AS  L»3 

SPLINE 

0330 

c 

SPLINE 

0340 

c 

STORAGE 

REQUIRED  X(N),Y(N>,F(5,N>;  SET  BY  CALLING  PROGRAM 

SPLINE 

0350 

c 

SPLINE 

0360 

c 

USAGE  : 

SPLINE 

0370 

c 

ALL  COMPUTATIONS  AND  REAL  VARIABLES  ARE  DOUBLE  PRECISION 

SPLINE 

0330 

c 

GIVEN: 

L , N ,  (X(I),Y(I),I*1,N) 

SPLINE 

0390 

c 

CALL  SPLINE  <X,Y,F,N,L>  :  SETS  F 

SPLINE 

0400 

c 

SPLINE 

0410 

cc 

SPLINE 

0420 

cc 

TO  EVALUATE  FUNCTION  AND  DERIVATIVES  AT  POINT  XX 

SPLINE 

0430 

cc 

SPLINE 

0440 

c 

DO 

10  K-l.N 

SPLINE 

0450 

c 

IF 

<  K.EQ.N  >  GO  TO  1 1 

SPLINE 

0460 

c 

IF 

(XX.LT.FI 1 ,K+1  >  >  GO  TO  11 

SPLINE 

0470 

c 

10  CONTINUE 

SPLINE 

0480 

c 

1  I  DX 

»  XX  -  F (1 , K  > 

SPLINE 

0490 

c 

YY 

«  F  (  2  ,  K  )  +  DX*(F(3tK)  +  DX*(F(4,K>  +  DX*F(5,K)>> 

SPLINE 

0500 

148 


c 

YD  -  F ( 3 , K  )  +  DX*(2.0"F(4,IO*3.0*DX*F(5,K)) 

SPLINE 

0510 

c 

Y00  -  2 . 0*F  <  4 , K )  ♦  6.0«DX*F< 5  ,  iO 

SPLINE 

0520 

c 

YDDO  *  6 . 0*F ( 5 , K  ) 

SPLINE 

0530 

c 

YDODD  ■  0.0 

SPLINE 

0540 

cc 

SPLINE 

0550 

cc 

FUNCTIONAL  VALUE  IN  YY,  DERIVATIVES  IN  YD'S 

SPLINE 

0560 

cc 

REPEAT  FOR  NEXT  VALUE  OF  XX 

SPLINE 

0570 

c 

SPLINE 

0580 

c 

AUTHOR:  DR.  JOHN  T.  FLECK 

SPLINE 

0590 

c 

SPLINE 

0600 

IMPLICIT  REAL *8  <A-H,0-Z> 

SPLINE 

0610 

DIMENSION  X<N),Y(N).F(5,N),C<2.3> 

SPLINE 

0620 

DO  20  I-l.N 

SPLINE 

0630 

F(  1 , I  )  *  X <  I  > 

SPLINE 

0640 

DO  10  K-2.S 

SPLINE 

0650 

10 

F ( K , I )  -  0.0 

SPLINE 

0660 

IF  <  L . LT . 3 )  F<  2, I)  -  V  <  I  > 

SPLINE 

0670 

20 

IF  (L.GT.O  .AND.  I.LT.N)  F  <  3 . I > 

*  (Y< 1  +  1 >-Y( I >  >/<X( 1  +  1  >-X(  I  >  > 

SPLINE 

0680 

IF  (L.LT.2  .OR.  N.LT.3)  GO  TO 

99 

SPLINE 

0690 

IF  (L.GE.3)  GO  TO  50 

SPLINE 

0700 

D 1  -  X<  2  )  -  X<  1  > 

SPLINE 

0710 

SS  -  0.0 

SPLINE 

0720 

DS  -  0.0 

SPLINE 

0730 

DO  30  I»3,N 

SPLINE 

0740 

F  <  4 , I - 1  )  *  F  <  3 , I - 1  )  -  F ( 3 , I -2  )  - 

F <  4 , I -2 ) 

SPLINE 

0750 

DX1  *  X( 1 >  -  X< 1-1  ) 

SPLINE 

0760 

DX2  -  X< 1-1  )  -  X( 1-2) 

SPLINE 

0770 

DD  -  D1/DX1  ♦  D1/DX2 

SPLINE 

0780 

SS  -  SS  +  00*00 

SPLINE 

0790 

DS  *  OS  +  DD*( F( 4 , 1 - 1  )/DX 1  -  F<4. 

1-2 )/0X2 ) 

SPLINE 

0800 

30 

D 1  »  -D 1 

SPLINE 

0810 

F( 4. 1 >  *  DS/SS 

SPLINE 

0820 

DX  -  ( X<  2)-X( 1  )  >*F<  4, 1  ) 

SPLINE 

0830 

F<  3, 1  )  -  F( 3, 1 >  -  DX 

SPLINE 

0040 

DO  40  1*3. N 

SPLINE 

0850 

XX  =■  F(4,I-1)  -  DX 

SPLINE 

0860 

F ( 3 , 1 - 1  )  -  F( 3, 1-1  )  -  XX 

SPLINE 

0870 

F l 4 , I  - 1  )  *  XX/«X( I  )-X<  1-1  )  ) 

SPLINE 

0880 

40 

DX  -  -DX 

SPLINE 

0890 

GO  TO  99 

SPLINE 

0900 

c 

SPLINE 

0910 

c 

CUBIC  SPLINE 

SPLINE 

0920 

c 

SPLINE 

0930 

50 

DO  51  1*2, N 

SPLINE 

0940 

IF  ( 1 .EO.N)  GO  TO  51 

SPLINE 

0950 

F( 4 , 1  >  -  3.0*(F<3,I)-F(3,I-1)) 

SPLINE 

0960 

F ( 5 , 1  )  -  2 . 0*<  X< 1  +  1 )-X( 1-1  )> 

SPLINE 

0970 

51 

F(3,I-1)  -  0.0 

SPLINE 

0980 

F  <  2 , N  >  •  -1.0 

SPLINE 

0990 

F  <  3 , 1  )  -  -1.0 

SPLINE 

1000 

149 


DO  60  1-3,  N 

SPLINE 

1010 

DX  -  X<  I - 1  >  -  X< 1-2  ) 

SPLINE 

1020 

IF  ( I.GT.31  OX  -  OX/F  <  5 , I -2  ) 

SPLINE 

1030 

DO  60  K-3,5 

SPLINE 

1040 

50 

F ( K , I  - 1 >  -  F(K.I-l)-  F<  K, 1-2  )-DX**( <  K-l )/2  1 

SPLINE 

1050 

DO  70  1-3. N 

SPLINE 

1060 

N I  -  N-I 

SPLINE 

1070 

DX  -  X<  NI+3  )  -  X( NI+2  ) 

SPLINE 

1080 

DO  70  K-2,4 

SPLINE 

1090 

70 

F  <  K , N I +2  )  -  ( F ( K , N I +2  )  -  DX*F < K , N I ♦3 > >/F < 5 , N I +2 > 

SPLINE 

1100 

DO  71  0-1,2 

SPLINE 

1110 

DO  71  K-J.3 

SPLINE 

1  120 

C ( J , K  )  -  0.0 

SPLINE 

1130 

DO  71  1-3, N 

SPLINE 

1140 

DX  1  -  X<  I  )  -  X< I - 1  > 

SPLINE 

1150 

DX2  -  X(  I -  1  )  -  X< 1-2  ) 

SPLINE 

1160 

71 

C ( J , K  )  -  C ( J  ,  K  >  ♦  (  ( F ( 0 ♦  1  , I  )  -F ( J* I , I - 1  >>/DXl 

SPLINE 

1170 

•  -  <F<J  +  1 , 1-1  )  -  F<  0* 1 , 1-2  )  >/DX2) 

SPLINE 

1180 

*  *  <  ( F  <  K+ 1  ,  I  )-F< K+l ,  1-1 > >/DXl 

SPLINE 

1190 

*  -  ( F< K  +  1  ,  1-1 >-F< K*1 , 1-2 > >/DX2 > 

SPLINE 

1200 

DEN  -  C< 1 , 1 >*C< 2.2 >  -  C( 1 ,2 )*C< r  ,2  ) 

SPLINE 

1210 

F ( 4 , 1  )  -  <C< 1 , 1  )*C< 2,3  )  -  C< 1 ,2 )*C( 1 ,3)  >/DEN 

SPLINE 

1220 

F ( 4  ,  N  )  -  <C< 2,2 >*C(  1  .3 >  -  C( 1 ,2  )*C<  2,3)  >/0EN 

SPLINE 

1230 

DO  72  1-3, N 

SPLINE 

1240 

72 

F  <  4 , I - 1  )  -  F ( 4 , I - 1  )  -  F<  4 , 1 >*F<  3,1-1  >  -  F  (  4 , N  >-F( 2 , I -  1  > 

SPLINE 

1250 

D  1  -  X (  2  >  -  X(  1  ) 

SPLINE 

1260 

F ( 3 , 1  )  -  ( V<2)-V< 1  )  1/01  -  (2.0*F<4,1)+F(4,2))*D1/3.0 

SPLINE 

1270 

F (  2 , 1  )  -  Y< 1  ) 

SPLINE 

1230 

DO  80  1-2. N 

SPLINE 

1290 

F  (  2  ,  I  )  -  Y  (  I  ) 

SPLINE 

1300 

DX  -  X< I )  -  X< I - 1 > 

SPLINE 

1310 

IF  (I.LT.N)  F ( 3  ,  I  )  -  F ( 3 , I - 1 >  ♦  (  F < 4 , I ) +F < 4 , I - 1  )  > -DX 

SPLINE 

1320 

80 

F ( 5 . 1  - 1  )  •  (F(4,I >  —  F<  4, I  —  1  ))/<3.0*DX> 

SPLINE 

1330 

F  (  4  ,  N  )  -  0.0 

SPLINE 

1340 

99 

RETURN 

SPLINE 

1350 

END 

SPLINE 

1360 
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SUBRC'TINE  UPDATE ( 1  ) 
CALLED  BY  SUBROUTINE  DINT 


REV  19  10/23/79 


( I - 1  )  AT  THE  START  OF  A  NEW  STEP  TO  SETUP  ANY  NEW  CONDITIONS 
TO  BE  VALID  FOR  ENTIRE  INTEGRATION  STEP 

A.  UPDATE  FORCE  DEFLECTION  FUNCTIONS! SUBROUTINE  UPOFDC ) 

B.  TEST  FOR  LOCKED  JOINTS 

NOTE:  ARGUMENT  I  WILL  BE  SET  TO  -1  TO  RESET  INTEGRATOR. 


(1-2)  AT  THE  END  OF  EACH  SUCCESSFUL  INTEGRATION  STEP  TO 

COMPLETE  CALCULATIONS  FOR  OUTPUT  (SUBROUTINE  AIRBG3). 


IMPLICIT  REAL*8(A-H,0-Z> 

COMMON/CONTRL/  T I ME . NSEG . N JNT . NP L . NB LT , N3AG , N VE H , NGRND  . 

NS.NQ.NSD , NFLX.NHRNSS , NWINDF .NUNTF ,NPRT< 36  ) 
COMMON/SGMNTS/  0(3.3.30)  ,WMEG<  3,30  )  ,WMEGD<  3.30>,U1(3.30).U2(3,30>, 
SEGLP(3,30),SEGLV(3,30 > ,SE5LA( 3,30) ,NSYM( 30  ) 

COMMON/ DE SC RP/  PH  I ( 3 . 30 ) , W( 30 > . RW( 30 > . SR ( 3 , 60 ) . HA( 3 . 60  ) . HB( 3 . 60 > . 

RPHK  3,30 ) .HT< 3, 3,60  )  .SPRING! 5,90)  .VISCl 7 .90  ) . 

JNT( 30 ), IP  INI  30), ISIN6(30). IGLOBf  30  ), JOINTF<  30 > 
COMMON /CMATRX/  V1(3,30),V2(3,30),V3(3,12).B12(3,3,60),A22(3.3,60>. 
F(3,30),TQ(3,30),WJ(30> 

COMMON /0BART2/  MNPL (  30),MNBLT(  8>,MNSEG(  30>,MNBAG(  6), 

MPL(3,S,30),MBLT(3,5.8),MSEG(3,5,30),MBAG(3,10.6), 
NTPL (  5,30), NTBLTI  5,8>.NTSEG(  5,30) 

COMMON/TABLES /MXNT I .MXNTB .MXTB1 . MXT32 , NT  I ( 50  > , NTAB! 500  > , TAB( 2000  ) 
COMMON/FORCES/  PSF ( 7 , 30  ) . BSF ( 4 , 20 > , SSF (  1 0 , 20 ) , BAGSF (3,20), 

PRONTI 6 , 30 ) , NPANEL (5>,NPSF,NBSF,NSSF,NBGSF 
COMMON/CSTRNT /  A 1 3( 3 , 3 , 24 ) , A23(  3 , 3 , 24  ) , B3 1 ( 3 , 3 , 24  )  , B32(  3 . 3 , 24  > , 

HHT( 3,3, 12 ) ,RK1<3, 12  >,RK2! 3, 12)  ,QQ( 3, 12  )  ,TQQ( 3, 12), 
RQQ(  3.12), HQQ( 3,12). SQQ( 12>,CFQQ( 12), 

KOI! 12 >,KQ2( 12), KOTYPE ( 12) 
CREST,TTI(3),RII(3>,R2I(3),USTOP(4.2,30> 
IEULER(30),HIR(3,3.30),ANG(3.30),ANGD(3,30), 

FE <  3 , 30  > . TQE ( 3 , 30  > , CONST! 3,30) 

COMMON /HRNESS/  BAR! I  5, 100),  SB!  100>,8BDOT( 1 00  ) , PLOSS! 2 , 100), 
XLONG(20),HTIME(2), I  BAR! 5, 100), NL( 2,  100), 

NPTSPB! 20 ) , NPTP L  Y( 20  > , NTHRNS! 20  > , NBLTPH ( B  > 

DIMENSION  TQTEST(3),LOCK(8,3)  ,T(3) 

DATA  LOCK/-8,  6,  5,  7, -3, -2. -4.  1, 

6.-8,  4,-3,  7, -1,-5,  2, 

5,  4, -8, -2,-1,  7,-6,  3/ 


COMMON /TEMP VI / 
COMMON/CEULER/ 


CALL  AIRBG3  FOR  AIRBAG,  IF  ANY. 


IF  (NBAG.NE.O)  CALL  AIRBG3! I > 
IF  ( I.EQ.2)  GO  TO  42 
CALL  ELTIME  (1,7) 

IF  (NPL.LE.O)  GO  TO  13 


UPDATE 

0010 

UPDATE 

0020 

UPDATE 

0030 

UPDATE 

0040 

UPDATE 

0050 

UPDATE 

0060 

UPDATE 

0070 

UPDATE 

0030 

UPDATE 

00. -0 

JPDATE 

0100 

UPDATE 

0110 

UPDATE 

012  0 

UPDATE 

oi  :o 

UPDATE 

01  4  J 

UPDATE 

0150 

UPDATE 

0160 

UPDATE 

0170 

UPDATE 

0130 

UPDATE 

0130 

UPDATE 

0200 

UPDATE 

0210 

UPDATE 

0220 

UPDATE 

0220 

UPDATE 

0240 

UPDATE 

0250 

UPDATE 

0260 

UPDATE 

0270 

UPDATE 

0230 

UPDATE 

0230 

UPDATE 

0300 

UPDATE 

0310 

UPDATE 

0320 

UPDATE 

0330 

UPDATE 

0340 

UPDATE 

0350 

UPDATE 

0350 

UPDATE 

03  ’0 

UPDATE 

0330 

UPDATE 

0330 

UPDATE 

0400 

UPDATE 

0410 

UPDATE 

0420 

UPDATE 

0430 

UPDATE 

0440 

UPDATE 

0450 

UPDATE 

0450 

JPDATE 

0470 

UPOATE 

0480 

UPDATE 

0490 

UPDATE 

0500 
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c 

UPDATE 

05  !  0 

c 

call  updfd^  for  each  allowed  plane-segment  contact. 

UPDATE 

0520 

c 

UPDATE 

05  50 

NPSF  •  0 

UPDATE 

05  1  J 

DO  12  0-1,  NPL 

UPDATE 

05  E  0 

NK  •  MNPL(J) 

UPDATE 

05  EO 

IF  (NK.LE.O)  GO  TO  12 

UPDATE 

0570 

DO  11  K  »  1.  NK 

UPDATE 

053  0 

NPSF  -  NPSF ♦  1 

JPDATE 

05  50 

NT  «  NTPL(K.O) 

JPDATE 

0600 

NF  -  NTAB( NT  +  S  > 

UPDATE 

0610 

CALL  UPDFDC( NT ) 

UPDATE 

0620 

IF  (NT.GT.O.OR.TAB(NF*3>.EQ.O.O)  GO  TO  11 

UPDATE 

0630 

CALL  IMPUL S( l , K , J  ) 

UPDATE 

06  )  0 

I  «  -1 

UPDATE 

06EC 

11 

CONTINUE 

UPDATE 

0660 

12 

CONTINUE 

UPDATE 

06  70 

13 

IF  <NBLT.LE.0I  GO  TO  16 

UPDATE 

06  6  0 

c 

UPDATE 

06-0 

c 

CALL  UPDFDC  FOR  EACH  ALLOWED  BELT-SEGMENT  CONTACT. 

UPDATE 

or  ■  o 

c 

UPDATE 

or  o 

DO  15  0-1  ,NBLT 

UPDATE 

0720 

NK  -  MNBLT< J ) 

UPDATE 

0730 

IF  (NK.LE.O)  GO  TO  15 

JPDATE 

0740 

DO  14  K  «  l.NK 

UPDA  'E 

0750 

NT  -  NTBLT(K.O) 

JPDATE 

0750 

NF  -  HTAB ( NT*5  ) 

UPDATE 

0770 

NT6  -  NT+6 

UPDATE 

0730 

CALL  UPDFDCI NT ) 

UPDATE 

0  7  ?  0 

c 

UPDATE 

0810 

c 

AND  FOR  2ND  FUNCTION.  IF  FULL  BEIT  FRICTION. 

UPDATE 

08’  : 

c 

UPDATE 

08  Z  0 

14 

IF  (NF.NE.O)  CALL  UPDF0C<NT6> 

UPDATE 

0830 

15 

CONTINUE 

UPDATE 

08  40 

c 

JPDATE 

0850 

c 

CALL  UPDFDC  FOR  EACH  ALLOWED  SEGMENT-SEGMENT  CONTACT. 

JPDATE 

0850 

c 

UPDATE 

0870 

16 

NSSF  -  0 

UPDATE 

0850 

DO  18  J-l.NSEG 

UPDATE 

OP  50 

NK  »  MNSEGl J ) 

UPDATE 

09  0  0 

IF  (NK.LE.O)  GO  TO  18 

UPDATE 

0912 

DO  17  K  »  l.NK 

UPDATE 

0920 

NSSF  -  NSSF ♦ 1 

UPDATE 

0930 

NT  -  NTSEG<  K , 0  ) 

UPDATE 

0940 

NF  -  NTAB( NT+5  ) 

JPDATE 

0950 

CALL  UPDFDC(NT) 

UPDATE 

0950 

IF  (NT.GT.O.OR.TAB(NF»3  > .EQ.0.0  >  GO  TO  17 

UPDATE 

0970 

CALL  IMPUL S<  3 , K , J  > 

UPDATE 

0930 

I  -  -1 

UPDATE 

0930 

17 

CONTINUE 

UPDATE 

ie:o 

152 


uuu  uuuuu 


18 

CONTINUE 

UPDATE 

1010 

IF  <  NHRNSS . LE . 0 )  GO  TO  71 

UPDATE 

1020 

UPDATE 

1030 

CALL  UP0F0C  FOR  EACH  BELT  OF  HARNESS-BELT  SYSTEMS. 

UPDATE 

1040 

UPDATE 

1050 

CALL  HPTURB 

UPDATE 

1060 

J1  -  1 

UPDATE 

1  C  7  0 

K1  -  l 

UPDATE 

1030 

DO  70  1 1-1 .NHRNSS 

UPDATE 

1030 

IF  < NBLTPH1 1 1)  .LE .0 >  GO  TO  70 

UPDATE 

1  100 

02-31  ♦  NBLTPHI I! )  -  1 

UPDATE 

1110 

DO  69  J-01,02 

UPDATE 

1120 

IF  <  NPTPL  Y <  J  )  .  LE  .  0  )  GO  TO  69 

UPDATE 

:  i  :o 

NT  -  flTHRNSI 0  > 

UPDATE 

1140 

CALL  UPDFDCI NT ) 

UPDATE 

11.0 

K2  -  K1  ♦  NPTPLYI J )  -  1 

UPDATE 

1150 

DO  68  K-K1.K2 

UPDATE 

1  170 

KI  -  NL ( 1 , K  > 

UPDATE 

113'.' 

NT  -  I  BAR  < 3 , K  I  > 

UPDATE 

1130 

CALL  UPDF OC ( NT  ) 

UPDATE 

1200 

68 

CONTINUE 

UPDATE 

1210 

Kl  -  <2-1 

UPDATE 

1220 

69 

CONTINUE 

UPDATE 

12  2  0 

01  -  02*1 

UPDATE 

1240 

70 

CONTINUE 

UPDATE 

12:0 

71 

IF  (NJNT.LE.O)  GO  TO  37 

UPDATE 

1250 

UPDATE 

1270 

CHECK  FOR  IMPULSE  ON  OOINT  STOPS 

UPDATE 

1230 

TO  BE  CALLED  IF  IN  OOINT  STOP  < OSTOP < 1 >* 1 >  THIS  TIME  STEP 

UPDATE 

12  30 

BUT  NOT  IN  IN  OOINT  STOP  <0STOP(2>-0)  AT  PREVIOUS  TIME. 

UPDATE 

13)0 

UPDATE 

1310 

DO  21  K» 1 , NJNT 

. P  DATE 

13  2  0 

IF  ( JNT(K).EQ.O)  GO  TO  21 

U.- DATE 

13  2  0 

IF  (  IABSI IPINIK)  1  .NE .4  .AND.  VI  SC ( 7 . 3-K-2 > . EQ . 0 . 0  )  GO  TO  20 

UPDATE 

1340 

DO  IS  0-1,3 

JPDATS 

13-0 

K30  -  3*K-3+0 

UPDATE 

13  5  0 

IF  ( IABS(1PIN(K>>.NE.4>  K30-3*K-2 

UPDATE 

1  J  70 

IF  I  IABSI IPINIKl  1.EQ.4  .AND.  VI  SC  I 7 , K30  )  . EQ . 0 . 0 )  GO  TO  19 

UPDATE 

13  3  0 

IF  (OSTOPIO. 1 , K  )  . NE . 1 .OR. OSTOP (0,2,K>.NE .0  )  GO  TO  19 

UPDATE 

13  40 

CALL  IMPULSI 4.0.K) 

UPDATE 

1  4  jO 

I  *  - 1 

UPDATE 

14.0 

19 

OSTOP ( J , 2 , K )  -  OSTOP ! 0 , 1 , K ) 

UPDATE 

14  2  0 

20 

IF  I  IGLOB(K).EQ.O)  GO  TO  21 

UPDATE 

1430 

NT  =  IGLOBIK) 

UPDATE 

!  4  .• ; 

MT  ■  NTABINT+5) 

UPDATE 

14:0 

NT1  -  NTAB I NT+2  > 

UPDATE 

1450 

NTABINT+2)  -  0 

UPDATE 

1470 

CALL  UPDFDCI NT 1 

UPDATE 

14  50 

NT  ■  IABSI NT ) 

UPDATE 

1430 

NTABI  NT+2  )  -  NT1 

UPDATE 

1500 
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IF  < TAB(MT*3 > .EO.O  .0 >  GO  TO  21 

IF  ( JSTOP (  4,  1  , K  > . NE .  1 . OR . JSTOP  <  4 , 2 ,  ^  )..')£  .  0  )  GO  TO  21 
CALL  IMPULSf  4 . 4  ,  K  ) 

I  •  -I 

21  OSTOP ( 4 , 2 , <  )  •  JSTOP ( 4 , 1 . X ) 

TEST  TO  LOCK  OR  UNLOCK  JOINTS 


CONDITIONS  TO  CHANGE  SIGN  OF  IPIN(J) 

PINNED  UNPINNED 

LOCKED  (-1)  IH.TQI  >  TI  (-2)  I TQ I  >  T1 

UNLOCKED  < ♦ 1  )  IH.TOI  <  T2  ( *2 )  I TQ I  <  T2 

OR  OR 

WO  <  T3  WJ  <  T3 

DO  28  0-1 .NJNT 

IF  ( IABS<  I P I N ( J  ))  .EQ. 4  )  GO  TO  28 
IF  ( IP IN( 0  >  )  22,28,23 

22  TI  ■  ,  ISCI 4 , 3*J-2  ) 

IF  (TI .EQ.0.0)  GO  TO  28 

IF  < I P I N<  U  ) . NE . - 1  )  GO  TO  51 

TQM  -  XDV<  HB( 1 ,  2* J  > , D( 1 .  1  .  J*  1 >,TQ( 1  ,0>> 

A8STQM  -  DAaS(TQM) 

IF  (ABSTQM.GT.Tl  )  HAI2, 2*0-1)  »  TQM 
TQM  -  ABSTQM 
GO  TO  52 

51  TQM  -  DSQRT( TQ( 1 , J ) **2  ♦  TQI2,J)**2  »  Ta(3.J>**2> 

IF  (TQM.GT.Tl)  CALL  OOT3i<HIR( 1 . 1 ,0 ) ,TQ( l .0 > ,HA( 1 ,2*0-1 ) ) 

52  IF  (TQM-T1 >  28,28,26 

23  T2  -  VISC( 5 , 3*J-2  ) 

IF  <HA(2,2*J).NE.0.0)  GO  TO  54 
DO  53  K-1,3 

53  HA(K, 2*0-1  )  -  0.0 

54  IF  ( T2. EQ.0.0  )  GO  TO  24 

IF  (  IPIN<0  1.GE.2)  TOM  -  OSORTI TO< 1 , 0 > **2*TQ( 2 , 0  )**2*TQ( 3 , 0 )-*2 > 
IF  ( IP IN( J  ) . EQ.  1>  TQM  ■  0ABS<  XOYI H3( l,Z*0),D( 1,1, 0*1 ) ,TQ< 1 ,  J  >  >  > 
IF  ( TQM-T2  )  25,28,28 

24  T3  «  VISC( 6 , 3*J-2  > 

IF  <T3. EQ.0.0)  GO  TO  28 
IF  ( WJ<  J  >-T3 )  25,28,28 

25  CALL  IMPLS2I 0,J,HB< 1 ,2*J ) > 

I  »  -1 

26  IP  I N( J  >  *  - IP  INI J ) 

TMSEC  -  1 000 . 0*TIME 
IP  I  NO  -  -  IP  INI  0 ) 

WRITE  16,27)  TMSEC, 0 , 1 P I  NO . IP  INI  0 > 

27  FORMAT! '0  AT  TIME  •'.FB^.1  MSEC,  IPINI '  .12,  ’  >  HAS  BEEN  CHANGED 


update  isio 
UPDATE  1520 
UPDATE  1530 
UPDATE  15*3 
UPDATE  1550 
UPOATE  1550 
UPDATE  1 5 ' 0 
UPDATE  1530 
UPDATE  1520 
UPDATE  1610 
UPOATE  1610 
UPDATE  1620 
UPDATE  1630 
UPDATE  1640 
UPDATE  1650 
UPDATE  1660 
UPDATE  1670 
UPDATE  1630 
UPDATE  1630 
UPDATE  1700 
UPDATE  1710 
UPDATE  1720 
UPDATE  1720 
UPDATE  1740 
UPDATE  1750 
UPDATE  1750 
UPDATE  1770 
UPDATE  1730 
UPDATE  17=0 
UPDATE  1800 
UPDATE  1810 
UPDATE  1820 
UPDATE  1830 
UPDATE  1840 
UPDATE  1850 
UPDATE  1850 
UPDATE  1870 
UPDATE  1830 
UPDATE  1890 
UPDATE  1900 
UPDATE  1910 
UPDATE  1920 
UPDATE  1930 
UPDATE  1 S  4  0 
UPDATE  1930 
UPDATE  1960 
UPOATE  1970 
UPOATE  1980 
UPOATE  1990 
UPDATE  2000 
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t 

'FROM' . 13. ‘  TO' . 13  > 

UPDATE 

2010 

28 

CONTINUE 

UPDATE 

2020 

UPDATE 

2030 

TEST  TO  LOCK  OR  UNLOCK  EULER  JOINTS  AXES. 

UPDATE 

2040 

USE  SAME  TEST  AS  ABOVE  BUT  ON  EACH  AXIS  SERARATELV. 

UPDATE 

2050 

UPDATE 

2060 

IF  LOCK< IEULER.K)  IS  NEGATIVE.  AXIS  K  13  LOCKEDt 

UPDATE 

2070 

TO  UNLOCK  AXIS  SET  IEULER  TO  -LOCK! I E ULER , K > . 

UPDATE 

2080 

UPDATE 

2030 

IF  LOCK! IEULER.K)  IS  POSITIVE.  AXIS  K  IS  UNLOCKED* 

UPDATE 

2100 

TO  LOCK  AXIS  SET  IEULER  TO  LOCK! I EULER . K > . 

UPDATE 

2110 

UPDATE 

2120 

DO  36  0-1  , NJNT 

UPDATE 

2130 

IF  ( IABS< IP IN( 0  >  > -NE . 4 )  GO  TO  36 

UPDATE 

2140 

JEULER  -  IEULER(J) 

UPDATE 

2150 

CALL  OOT31 <  HIR( 1 , 1 ,0  >,TQ< 1 . J ).TOTEST) 

UPDATE 

21S0 

DO  31  K-l .3 

UPDATE 

2170 

K3J  -  3-J-3+K 

UPDATE 

2130 

NLOCK  -  LOCK! JEULER, K) 

UPDATE 

2130 

IF  (NLOCK. GT.O)  GO  TO  29 

UPDATE 

2200 

IF  <VISC(4,K3J).EO.O.O)  GO  TO  31 

UPDATE 

2210 

IF  ( DABS( TQTE ST( K  )  > . LE . V I SC< 4.K3J ) )  GO  TO  31 

UPDATE 

2220 

JEULER  -  -NLOCK 

UPDATE 

2230 

HA<  K. 2-0-1 )  -  TQTEST(K) 

UPDATE 

2240 

GO  TO  31 

UPDATE 

2250 

29 

IF  < HACK, 2*0). EQ. 0.0)  HA(K. 2-0-1)  -  0.0 

UPDATE 

2260 

IF  (VISC(5,K3J).EQ.0.0)  GO  TO  30 

UPDATE 

2270 

IF  (DABS(TQTEST(K) ).LT.VISC<  5.K3J ))  JEULER  -  NLOCK 

UPDATE 

2290 

GO  TO  31 

UPDATE 

2230 

30 

IF  <VISC(6,K3J  > . EQ . 0 . 0 )  GO  TO  31 

UPDATE 

2300 

IF  ( DABS(ANGD( K.O  )  )  .LT . VI  SC ( 6.K3J ) )  JEULER  •  NLOCK 

UPDATE 

2310 

31 

CONTINUE 

UPDATE 

2320 

IF  (JEULER. EO. IEULER(J ) )  GO  TO  36 

UPDATE 

233  > 

TMSEC  -  1000.0-TIME 

UPDATE 

2340 

WRITE  (6,32)  TMSEC, J,IEULER<0>. JEULER 

UPDATE 

2350 

32 

FORMAT (  ' 0  AT  TIME  -'.Fg.S,'  MSEC,  lEULERf  '  ,  12 , '  )  HAS  BEEN 

CHANGED 

UPDATE 

2360 

-FROM' , 13, '  TO' , 13 ) 

UPDATE 

2370 

IF  ( JEULER. EQ. B )  GO  TO  35 

UPDATE 

2380 

IF  (  IEULERIO  1.EQ.7 >  GO  TO  35 

UPDATE 

2390 

IF  (IEULERIO). EO. 6  .AND.  ( JEULER . EQ . 2 . OR . JEULER . EQ . 1 ) ) 

GO 

TO 

35 

UPDATE 

2400 

IF  (  IEULER(J).EQ.5  .AND.  ( JEUL E R  .  EQ . 3 . OR . 0  EULER . EQ . 1  )  ) 

GO 

TO 

35 

UPDATE 

2410 

IF  (IEULER(J).EQ.4  .AND.  ( JEULE R . EQ . 3 . OR . JEULER . EQ. 2 ) ) 

GO 

TO 

35 

UPDATE 

2420 

MOOE  -  -1 

UPDATE 

2430 

K  -  JEULER 

UPDATE 

2440 

IF  (K.GT.3)  GO  TO  33 

UPDATE 

2450 

IF  (K.EQ.2)  GO  TO  34 

UPDATE 

2460 

K4  -  4-K 

UPDATE 

2470 

CALL  CROSS  <  H I R ( 1 , K4 , J  ) , H I R( 1 , 2 , J ) , T  > 

UPDATE 

2480 

lEULERf J  >  -  8 

UPDATE 

2490 

I P IN( 0  )  -  4 

UPDATE 

2500 

o  o  o 


CALL  IMPLS2( MODE ,0  ,T  > 

I  »  -1 
GO  TO  35 

33  MODE  »  1 

K  •  K-3 

IF  (K.GT.3)  MODE-Q 

34  IEULER(J)  -  8 

I P  I  N(  J  )  -4 

CALL  IMPLS2! MODE , 0 , H I R( 1 , K  ,  J  )  ) 

I  -  -1 

35  IEULER! J >  *  OEULER 
IP  I  N(  J  )  -  4 

IF  < IEULER!U>.NE.8>  IP  IN<  0  >  -  -4 

36  CONTINUE 

37  IF  (NQ.LE.O)  GO  TO  41 
DO  40  K*  I , NQ 

IF  (KQTYPE(K).LT.3)  GO  TO  40‘ 

IF  (  KCITYPE!  K)  .GT.4  )  GO  TO  40 

IF  ( CFOOt K  )  .LT.  0 .0 >  KQTYPE(K)  «  -KQTYPE ( K  ) 

IF  (CFQQ(K).LT.O.O)  GO  TO  39 

TEST  IF  ROLLING  CONSTRAINT  SHOULD  BE  SLIDING  AND  VICE  VERSA. 

ON  -  -XDYITQQU ,K),HHT( 1 . 1 ,K),QQ( l ,K> > 

IF  ( NP  RT<  24  )  . NE  .  0  )  WRITE  (6,38)  KQT/PEI K ) . KQl ( K)  . K02I K  )  . 

*  IRR1I  n,JO,II»1.3),IRX2I  IJ.JC),  JI-1  ,3), 

*  <<HHT<  11,0, K>,0-;,3>,  11-1,3), 

«  ( QQ( I  I . K ) , 1 1 - 1 , 3  > , ( TQQI II, K), 11*1,3).! RQQ< II, K), 13-1,3). 

*  (HQQ<  II,K),II»1,3), SQQ( K  )  , CFQQ! K  > , ON 
33  FORMAT!  '0  UPDATE  ROL. -SLIDE  TE ST ' / ( ZX , 9G 1 4 . 6  )  ) 

IF  (GN.LT.0.0)  KQTYPE ( K  >  =  -4 
IP  (Q'I.LT.0.0)  GO  TO  39 

OOOTQ  -  QQ(  1  ,  K )  **2  +  00(2, 0**2  ♦  Qa(3,K>*,rZ 
QT  »  DSQRT! QDOTQ-QN**2  ) 

IF  I KQTYPE ( K  ) . EQ . 3  .AND.  OT . LE .CFQQ! K>«QN >  GO  TO  40 
IF  ( KCTYPE! K ) . EQ. 4  .AND.  OT . GE . 0 . 9*CFQQ( K >*QN >  GO  TO  40 
KQTYPE ! K  >  *  7-KQTVPE ( K  ) 

39  CALL  OUTPUT! 0  ) 

CALL  SETUP2 
CALL  OAUX ( <  ) 

IF  ( NPRT! 24 ) .NE .0 >  CALL  OUTPUT! 1  ) 

IF  (NPRT!  3  )  .  NE  .  0  )  CALL  PRINT  ( 6HUPDATE  ) 

I  *  - 1 

40  CONTINUE 

41  CALL  E  LT I  ME ( 2 , 7  ) 

42  RETURN 
END 


UPDATE  2510 
UPDATE  2520 
UPDATE  2530 
UPDATE  2540 
UPDATE  2550 
UPDATE  2550 
UPDATE  2570 
UPDATE  2530 
UPDATE  2590 
UPDATE  2600 
UPDATE  26 :0 
UPDATE  26:0 
UPDATE  2530 
UPDATE  2640 
UPDATE  2650 
UPCATE  2660 
UPDATE  2670 
UPDATE  2630 
UPDATE  2S90 
JP  DATE  2700 
UPDATE  271 : 
UPDATE  2720 
JP  DATE  2730 
UPDATE  2740 
UPDATE  2750 
UPDATE  2750 
UPDATE  2770 
UPDATE  2730 
UPDATE  2730 
UPDATE  2800 
UPDATE  28  i  0 
UPDATE  2320 
UPDATE  2830 
UPDATE  2840 
UPDATE  2850 
UPDATE  2350 
UPDATE  28  7 0 
UPDATE  2830 
UPDATE  2990 
UPDATE  2900 
JP  DATE  2910 
UPDATE  2920 
UPDATE  2930 
UPDATE  2940 
UPDATE  2950 
UPDATE  2950 
UPDATE  2970 
UPDATE  2930 
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SUBROUTINE  VEHPOS 


REV  19  09/15/78 

COMPUTES  COMPONENTS  OF  VEHICLE  ACCELERATIONS  ONLY  AS  A  FUNCTION 
OF  TIME  USING  DATA  AND  TABLES  PRODUCED  BY  SUBROUTINE  VINPUT. 

IMPLICIT  R£AL*8  (A-H.O-Z) 

COMMON/CONTRL/  T IME . NSEG . NUNT . NPL , NBLT , NBAG , NVEH , NGRND , 

*  NS,NQ,NSD,NFLX,NHRNSS,NWINDF,NJNTF,NPRT( 36) 

COMMON /SGMNTS/  D< 3 , 3 , 30 > .WMEG < 3 , 30 > , WMEGD < 3 . 30 > . U 1 < 3 , 30 > . U2< 3 , 30 > , 

*  S£GLP(3.30>,SEGLV<3,30>,SEGLA<3.30).NSYM(30> 

COMMON/ VP OSTN/  ZPLT(3>.SPLT(3 1 , AXV( 3 , 6  > , VATAB <  6 . 1 0 1 , 6  > . 

»  VT0(  6 ) , VDT (  6 > .TIMEV1  6 ) , OMEGV< 6 ) , NVTABf 6  ) , INDXV( 6  > 

COMMON /CNSNTS/  PI , RAD  IAN , G , TH I RD . E PS( 24  ), 

*  UNITL .UNITM, UN  I TT , GRAVTY ( 3  ) 

DIMENSION  AX<  3  ) 

T  »  TIME 
M  -  1 

15  DO  16  1*1 ,3 

16  AX( I  )  *  AXV < I , M ) 

ATO  *  VTO(M) 

ADT  *  VDT(M) 

VTIME  *  TIMEV(M) 

OMEG  »  OMtGV(M) 

NATAB  -  NVTAB(M) 

K  -  INDXV(M) 

IF( NATAB. NE .0  )  GO  TO  20 

HALF-SINE  WAVE  DECELERATION 

IF(T.GT. VTIME  )  T-VTIME 
WT  =  OMEG*T 
SWT  -  DSIN(WT) 

DO  10  1*1,3 
AW  *  AX( I ) *OMEG 
SEGLA(I.K)  *  -AW»OMEG*SWT 
10  WMEGD ( I  ,K>  •  0.0 
GO  TO  99 

20  IF  (NATAB. LT.O)  GO  TO  30 

UNIDIRECTIONAL  DECELERATION 
IF  (T.LT. VTIME  )  GO  TO  21 

TIME  POINT  EXCEEDS  TABLE,  USE  LAST  VALUES  OF  ACCELERATION. 

ACO  «  VATABI 1 , NATAB, M) 

GO  TO  25 

USE  QUADRATIC  INTERPOLATION  FROM  TABLES  FOR  CURRENT  VALUE  OF 
TIME  TO  8E  CONSISTENT  WITH  SIMPSON  INTEGRATION  OF  TABLES. 


VEHPOS  0010 
VEHPOS  0020 
VEHPOS  0030 
VEHPOS  0040 
VEHPOS  0050 
VEHPOS  0060 
VEHPOS  0070 
VEHPOS  0080 
VEHPOS  0090 
VEHPOS  0100 
VEHPOS  0110 
VEHPOS  0120 
VEHPOS  0130 
VEHPOS  0140 
VEHPOS  0150 
VEHPOS  0160 
VEHPOS  0170 
VEHPOS  0180 
VEHPOS  0190 
VEHPOS  0200 
VEHPOS  0210 
VEHPOS  0220 
VEHPOS  0230 
VEHPOS  0240 
VEHPOS  0250 
VEHPOS  0260 
VEHPOS  0270 
VEHPOS  0280 
VEHPOS  0290 
VEHPOS  0300 
VEHPOS  0310 
VEHPOS  0320 
VEHPOS  0330 
VEHPOS  0340 
VEHPOS  0350 
VEHPOS  0360 
VEHPOS  0370 
VEHPOS  0380 
VEHPOS  0390 
VEHPOS  0400 
VEHPOS  0410 
VEHPOS  0420 
VEHPOS  0430 
VEHPOS  0440 
VEHPOS  0450 
VEHPOS  0460 
VEHPOS  0470 
VEHPOS  0430 
VEHPOS  0490 
VEHPOS  0500 
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VEHPOS 

0510 

21 

J-  0 . 5* ( T-ATO l/AOT  M  .0 

VEHPOS 

0520 

XK  ■  T/AOT  -OFLOAT <  2*J - 1  ) 

VEHPOS 

0530 

XI  ■  XK+1.0 

VEHPOS 

0540 

X3  •  XK- 1 . 0 

VEHPOS 

0550 

ACO  •  0.5*XK*X3*VATAB< 1 ,2*0-1 , Ml 

VEHPOS 

0560 

a 

'  -  X3«X1*VATAB< 1 .2*0  .Ml 

VEHPOS 

0570 

a 

'  ♦  0.5*XK*X1 *VATA8( 1 , 2*0+ 1 , M ) 

VEHPOS 

0580 

VEHPOS 

0590 

COMPONENTS  OF  VEHICLE  ACCELERATION. 

VEHPOS 

0600 

VEHPOS 

0610 

25 

DO  29  1-1,3 

VEHPOS 

0620 

SEGLA(I.K)  »  -G*AX< I  )*AC0 

VEHPOS 

0630 

29 

WMEGD(  I  ,K)  «  0.0 

VEHPOS 

0640 

GO  TO  99 

VEHPOS 

0650 

VEHPOS 

0660 

OMNIDIRECTIONAL  DECELERATION 

VEHPOS 

0670 

VEHPOS 

0680 

30 

0  «  ( TIME-AT0 )/ADT  ♦  1 .0 

VEHPOS 

0690 

IF  <  0  .  GE  .  -NATAB  )  GO  TO  32 

VEHPOS 

0700 

VEHPOS 

0710 

INTERPOLATION  FROM  VINPUT  TABLES  OF  COMPONENTS  OF  VEHICLE 

VEHPOS 

0720 

LINEAR  AND  ANGULAR  ACCELERATION. 

VEHPOS 

0730 

VEHPOS 

0740 

TJ  «  AT0  ♦  DFLOATtJ-l >*ADT 

VEHPOS 

0750 

0LT  *  TIME-TJ 

VEHPOS 

0760 

R 1  •  DLT/ADT 

VEHPOS 

0770 

R2  -  1  .  0-R 1 

VEHPOS 

0780 

DO  31  1-1,3 

VEHPOS 

0790 

SEGLA(I.K)  -  -G*  <  VATAB ( I  ,JM,M1*R1  +  VATABt I  ,D,M1*R2> 

VEHPOS 

0800 

31 

UMEGD(I.K)  •  RAO IAN*(VATAB( I  ♦  3  ,  J  +  1 , M  1  *R 1  ♦  VATAB ! I +3 . 0 , M  )  «R2  ) 

\ EHPOS 

0810 

GO  TO  99 

\ EHPOS 

0820 

VEHPOS 

0830 

TIME  POINT  EXCEEDS  TABLE.  USE  LAST  VALUES  OF  ACCELERATION. 

VEHPOS 

0840 

VEHPOS 

0850 

32 

0  -  -  NATAB 

VEHPOS 

0860 

DO  33  1-1,3 

VEHPOS 

0870 

SEGLA(I.K)  -  -G*VATA8 ( I  ,J,M) 

VEHPOS 

0880 

33 

WMEGDU.K)  -  RA0IAN*VATAB< I+3,0,M> 

VEHPOS 

0890 

99 

M  -  M+l 

VEHPOS 

0900 

IF  (M.LE.6  .AND.  INDXV(M) .NE .0  >  GO  TO  15 

VEHPOS 

0910 

RETURN 

VEHPOS 

0920 

END 

VEHPOS 

0930 
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SUBROUTINE  VINPUT 

REV  19  06/08/79 

PERFORMS  CARD  INPUT  AND  COMPUTES  DATA  AND  TABLES  REQUIRED  BY 
SUBROUTINE  VEHPOS  TO  INTEGRATE  THE  CRASH  VEHICLE  MOTION  FOR  ONE  OF 
THREE  PERMISSABLE  OPTIONS: 

(1)  HALF  SINE-WAVE  LINEAR  DECELERATION  IMPULSE 

(2)  UNIDIRECTIONAL  LINEAR  DECELERATION  TABULAR  INPUT 

(3)  OMNIDIRECTIONAL  LINEAR  AND  ANGULAR  ACCELERATION  TABULAR 
INPUT  (6  DEGREES  OF  FREEDOM  VEHICLE  MOTION) 

IMPLICIT  REAL *8  (A-H.O-Z) 

COMMON /CONTRL/  TIME . NSEG , N J NT , NPL . N BLT , NBAG , NVE H , NGRND , 

«  NS.NQ.NSD.NFLX.NHRNSS.NWINDF .NONTF .NPRT!  36 ) 

COMMON /SGMNTS/  D<  3,3 . 30  > ,WMEG( 3 ,30  )  , WMEGD ( 3,30>,U1(3,30),U2(3,30>, 

*  SEGLP(3,30),SEGLV!3,30),SEGLA(3,30>,NSYM!30> 

COMMON /DE SC RP/  PHI ! 3 , 30  > , Wt  30 > , RW! 30  > . SR! 3 , 60  > , HA! 3 , 60  > , H8<  3 , 60  > . 

*  RPHI(3,30),HT(3,3,60).SPRING(5,90>,VISC(7,90), 

*  ONTI 30  ) , IP  INI  30 ) , ISING! 30 ) , IGLOB! 30 ) , OOINTF!  30  > 
COMMON/ VPOSTN/  ZPLT! 3 ) . SPLT! 3 ) ,AXV! 3,6  > . VATABi 6 . 101 .6  > . 

*  VT 0 ( 6  )  ,VDT( 6 ) .TIMEVI 6  > ,OMEGV< 6 ) , NVTAB! 6 ) , INDXV! 6  > 
COMMON /TEMP VS/  X0( 3  )  ,XDOTO( 3  )  ,XCOMP( 3  >  .XVCuMP! 3  )  .ANGLE! 3  > , 

*  ATAB ( 15.100 ) ,DVEH( 3.3 ) ,VMEG(  3 ) , VMEGD!  3  > . 

*  XACOMP ( 3  )  , THETI 3  )  , AX<  3  ) , F ( 5 . 1 00  > , XYZ( 6 , 1 02  > , TT( 102  ), 

*  VIPS. VMPH, ATO.ADT, VTIME .OMEG . NATAB 

COMMON/ INTEST/  SGTE ST(  3 , 4 . 30 ) . XTE ST(  3 . 1 20 ) . SEGT(  120>,REGT(  120) 

REAL  SEGT 

COMMON /CNSNTS/  P  I  , RAD  IAN , G , TH I RO , EP S !  24  > , 

*  UNITL ,UNITM,UNITT,GRAVTY(  3 ) 

COMMON /TITLES/  DATE! 3 > .COMENT! 40 ) , V? STTL ( 20  )  , BD YTTL ( 5 > . 

*  BLTTTL! 5,8 ) .FLTTL! 5,30 ) , BAGTTL  (  5 , 6  > , SEG I  30 )  . 

*  0OINT(30),CGS!30),0S(30) 

REAL  DATE, COME  NT. VP STTL .3DYTTL, BLTTTL. PLTTL .BAGTTL , SEG, JOINT 
LOG ICAL  *  1  CGS.OS 
REAL  VEH! 6 ) ,GRND 

DATA  VEH/4HVEH1 , 4HVEH2 , 4HVEH3 , 4HVEH4 . 4HVEH5 , 4HVEH  /  ,  GRND/ 4HGRND/ 
DIMENSION  IDYPR! 3  ) 

OATA  IOYPR/3,2, 1/ 

READ  AND  PRINT  CONTENTS  OF  CARDS  C.l  AND  C.2 

NVEH  »  NSEG 
NVH  •  0 
DO  11  1-1,6 

1 1  INDXV! I  )  •  0 

12  READ  (5,13)  VPSTTL 

13  FORMAT  (20A4) 

READ! 5, 14 )  ANGLE , VI  PS , VT IME , XO , NATAB , ATO , ADT , MSEG 

14  FORMAT! 8F6 . 0. 16 .2F6.0 , 16  ) 

WRITE  ! 6 , 1 5 )  VPSTTL, ANGLE, VIPS, VTIME, XO, NATAB, ATO, ADT, MSEG 

15  FORMAT!'!  VEHICLE  DECELERATION  I NPUTS ' , 9 1 X , ' CARDS  C ' //3X , 20A4// 


V 

INP 

UT 

0010 

V 

INP 

UT 

0020 

V 

INP 

UT 

0030 

V 

INP 

UT 

0040 

V 

INP 

UT 

0050 

V 

INP 

UT 

0060 

V 

INP 

UT 

0070 

V 

INPUT 

0080 

V 

INP 

UT 

0090 

V 

INPUT 

0100 

V 

INP 

UT 

0110 

V 

INPUT 

0120 

V 

INP 

UT 

0130 

V 

INP 

UT 

0140 

V 

INP 

UT 

0150 

V 

INP 

UT 

0160 

V 

INP 

UT 

0170 

V 

INP 

UT 

0180 

V 

INP 

UT 

0190 

V 

INP 

UT 

0200 

V 

INP 

UT 

0210 

V 

INP 

UT 

0220 

V 

INP 

UT 

0230 

V 

INP 

UT 

0240 

V 

INP 

UT 

0250 

VI  NP 

UT 

0260 

V 

INP 

UT 

0270 

V 

INPUT 

0280 

V 

INPUT 

0290 

V 

INP 

UT 

0300 

V 

INP 

UT 

0310 

V 

INP 

UT 

0320 

V 

INP 

UT 

0330 

V 

INP 

UT 

0340 

V 

INP 

UT 

0350 

V 

INP 

UT 

0360 

V 

INP 

UT 

0370 

V 

INP 

UT 

0380 

V 

INP 

UT 

0390 

V 

INP 

UT 

0400 

V 

INP 

UT 

0410 

V 

INP 

UT 

0420 

V 

INP 

UT 

0430 

V 

INP 

UT 

0440 

V 

INP 

UT 

0450 

V 

INP 

UT 

0460 

V 

INP 

UT 

0470 

V 

INPUT 

0480 

V 

INP 

UT 

0490 

V 

INPUT 

0500 
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*  7X.  'YAW  ,9X, 'PITCH'  ,7X,  'ROIL'  ,8X, ‘VIPS'  ,8X, 'VTIME'  ,7X, 'XO(X)'  , 

*  7X,  'XO(Y)'  ,7X, 1 X0( Z  > ' ,2X,  ’ NATAB '  ,6X. 'ATO'  ,9X , 'ADT'  ,  4X ,  ' MSEG  1  / 

*  8F12.3,IS,2X,2F12.6,15> 

DAI  •  ANGLE (  1  )* RAD  I AN 

DA2  -  ANGLE ( 2  )  “RAD  I AN 
AX ( 3  )  »  DCOS ( DA2  ) 

AX ( 1  )  *  DCOS( DAI  ) *AX  ( 3  ) 

AX ( 2  )  «  DS I N( DAI  )*AX( 3  > 

A X ( 3  )  -  DS I N( DA2  > 

I F  < NATAB . N2 .0  )  GO  TO  18 
C 

C  HALF-SINE  WAVE  DECELERATION 

C 

OMEG  *  PI/VTIME 
AT  *  0  .  S’WIPS/OMEG 
IF  (VIPS. LT. 0.0)  VIPS  >0.0 
DO  16  I>1.3 
XACOMP (  I  )  »  0.0 
X DOT 0 (  I  )  >  V  I P S* AX (  I  ) 

16  AX (  I  )  >  AT*AX(  I  ) 

WRITE  (6,17)  VIPS, UNITL.UNITT, ANGLE, VTIME .UNITT 

17  FORMAT ( 1 0  PASSENGER  COMPARTMENT  DISPLACEMENT  HISTORY'/ 

*  ’  ANALYTICAL  HALF-SINE  WAVE  DECELERATION'/ 

*  '  VO-' ,F8.3,1X,A4, '/' ,A4, ' ,  OBLIQUE  ANGLES  -’.3F7.2, 

*  '  DEGREES,  TIME  DURATION  - '  , F 7 . 3 , 1 X , A4/ / ) 

GO  TO  28 

18  IF  < NATAB. LT.O)  GO  TO  31 

FOR  UNIDIRECTIONAL  VEHICLE  MOTION 
READ  LINEAR  DECELERATION  TABLES  FROM  CARDS  C.3 

READ  (5,19)  ( ATAB( 1 , I ) , 1=1 , NATAB > 

19  FORMAT  (  12F6.0  > 

EXTEND  TABLE  IF  NECESSARY  SUCH  THAT  NATAB  IS  ODD  AND 
LAST  ENTRY  NEED  HOT  BE  ZERO.  IF  TABLE  SIZE  IS  EXCEEDED  ON  TIME. 
VALUE  OF  LAST  ENTRY  WILL  8E  USED. 

IF  ( MOD< NATAB , 2  )  . EQ  .  1  )  GO  TO  20 
ATAB ( 1 , NATAB* 1  )  =  ATAB ( 1 , NATAB  ) 

NATAB  -  NATAB+ 1 

20  VTIME  -  ADT  •  DFLOAT( NATAB- 1  > 

USING  SIMPSON'S  INTEGRATION,  COMPUTE  VELOCITY  AND  DISPLACEMENT 
TABLE  FOR  NATAB  EQUALLY  SPACED  (ADT)  TIME  POINTS. 

FOR  1=1, NATAB 

ATAB ( 1 , I )  -  LINEAR  DECELERATION  (G'S) 

ATAB ( 2,1)  »  LINEAR  VELOCITY  <L  UNITS/T  UNITS) 

ATAB (  3,1)  =  LINEAR  DISPLACEMENT  (L  UNITS) 


VINPUT 

0510 

VINPUT 

0520 

VINPUT 

0530 

VINPUT 

0540 

VINPUT 

0550 

VINPUT 

0560 

VINPUT 

0570 

VINPUT 

0580 

VINPUT 

0590 

VINPUT 

0600 

VINPUT 

06  1  0 

VINPUT 

0620 

VINPUT 

0630 

VINPUT 

0640 

VINPUT 

0650 

VINPUT 

0660 

VINPUT 

0670 

VINPUT 

0680 

VINPUT 

0690 

VINPUT 

0700 

VINPUT 

0710 

VINPUT 

0720 

VINPUT 

0730 

VINPUT 

0740 

VINPUT 

0  7  5  0 

VINPUT 

0750 

VINPUT 

0770 

VINPUT 

0780 

VINPUT 

0790 

VINPUT 

0800 

VINPUT 

0810 

VINPUT 

0820 

VINPUT 

0830 

VINPUT 

0840 

VINPUT 

0850 

VINPUT 

0850 

VINPUT 

0870 

VINPUT 

0830 

VINPUT 

0890 

VINPUT 

0900 

VINPUT 

0910 

VINPUT 

0920 

VINPUT 

0930 

VINPUT 

0940 

VINPUT 

0950 

VINPUT 

0960 

VINPUT 

0970 

VINPUT 

0980 

VINPUT 

0990 

VINPUT 

1000 

160 


ATAB (2,1 )  -  VIPS 

VINPUT 

1010 

ATAB ( 3 . 1 >  -  0.0 

VINPUT 

1020 

DAI  =  ADT/3.0 

VINPUT 

1030 

DA2  »  ADT/12.0 

VINPUT 

1040 

UNITS  -  -G 

VINPUT 

1050 

DO  22  J*2.3 

VINPUT 

1060 

DO  21  1  =  2, NATAB , 2 

VINPUT 

1070 

FI  =  ATAB ( J - 1 ,1-1)  *  UNITS 

VINPUT 

1080 

F 2  -  ATAB ( J- 1 , 1  >  *  UNITS 

VINPUT 

1090 

F 3  =  ATAB<  0- 1 ,1  +  1 )  *  UNITS 

VINPUT 

1100 

ATAB <  J , I  >  *  ATAB ( J , I -  1 )  +  DA2*( 5 . 0*F 1 +8 . 0*F 2-F 3  ) 

VINPUT 

1110 

21 

ATAB( J , I + 1 >  =  ATAB(J.I-l)  ♦  DA1*<  F 1 +4 . 0+F2+F3 > 

VINPUT 

1  120 

22 

UNITS  =  1.0 

VINPUT 

1130 

c 

VINPUT 

1140 

c 

PRINT  TABLES 

VINPUT 

1150 

c 

VINPUT 

1  160 

WRITE  (6,23)  ( UNITL ,UNITT,UNITL • 1*1 ,2  > 

VINPUT 

1170 

23 

FORMAT ( ' 0  UNIDIRECTIONAL  VEHICLE  POSITION  TABLES'// 

VINPUT 

1180 

*  2<  '  TIME  ACC  VELOCITY  POSITION 

'  >/ 

VINPUT 

1190 

*  2<  '  (MSEC)  (G)  (  ' ,A4 ,  ' / '  ,A4 , '  > '  ,5X, ' (  '  ,A4 , ' 

>' ,4X)/> 

VINPUT 

1200 

DO  26  0=1,50 

VINPUT 

1210 

IF  (J.GT. NATAB)  GO  TO  26 

VINPUT 

1220 

T 1  =  (ATO  +  DFLOAT(U-l  > *ADT  )* 1 000 . 0 

VINPUT 

1230 

IF  (0+50. LE .NATAB )  GO  TO  25 

VINPUT 

1240 

WRITE  (6,24)  T1  ,(ATAB( I ,J >,1  =  1,3) 

VINPUT 

1250 

24 

F  ORMAT  (2(FU.5,F10.2,F13.4,F13.5,3X)) 

VINPUT 

1260 

GO  TO  26 

VINPUT 

1270 

25 

T2  *  (ATO  +  DFLOAT(J+49)*ADT)*lOOO.O 

VINPUT 

1280 

WRITE  (6,24)  T1,(ATAB(1,0),1=1,3>,T2,(ATAB(I,D+50),I=1,3> 

VINPUT 

1290 

26 

CONTINUE 

VINPUT 

1300 

c 

VINPUT 

1310 

c 

INITIALIZATION 

VINPUT 

1320 

c 

VINPUT 

1330 

DO  27  1=1,3 

VINPUT 

1340 

XACOMP(I)  =  -G*AX( I  )*ATAB<  1,1) 

VINPUT 

1350 

27 

X  DOT  0 (  I  >=  V I P  S*AX (  I  > 

VINPUT 

1360 

28 

00  30  1=1.3 

VINPUT 

1370 

DO  29  0=1.3 

VINPUT 

1380 

29 

DVEH( 1,0)  =  0.0 

VINPUT 

1390 

DVEHl 1,1)  =  1.0 

VINPUT 

1400 

VMEGD ( I  )  =  0.0 

VINPUT 

1410 

30 

VMEG( I  )  =0.0 

VINPUT 

1420 

GO  TO  64 

VINPUT 

1430 

c 

VINPUT 

1440 

c 

FOR  OMNIDIRECTIONAL  (6  DEGREES  OF  FREEDOM)  VEHICLE  MOTION 

VINPUT 

1450 

c 

READ  LINEAR  DECELERATION  AND  ANGULAR  ACCELERATION  TABLES 

VINPUT 

1460 

c 

FROM  CARDS  C.4. 

VINPUT 

1470 

c 

VINPUT 

1480 

31 

MATAB  »  -NATAB 

VINPUT 

1490 

READ  (5,32)  LTYPE , LF I T , NPTS , ( VMEG ( I ) , I = 1 , 3 ) 

VINPUT 

1500 

161 


32 

FORMAT  (316, 22X.3F 10.0) 

VINPUT 

1510 

IF  (LTYPE.GT.O)  GO  TO  34 

VINPUT 

1520 

READ  (5,33)  ( ( ATAB< I . J ) , I - 1 , 3  ) , ( ATAB< I , J > . 1 - 1 0 . 1 2  ) . J - 1 , MATAB  ) 

VINPUT 

1530 

33 

FORMAT  <  10X.6F10 .0  ) 

VINPUT 

1540 

ISKIP  -  0 

VINPUT 

1550 

GO  TO  46 

VINPUT 

1560 

34 

LPTS  *  LTYPE-1  ♦  NPTS 

VINPUT 

1570 

READ  (5,35)  ( TT( I) . ( XYZ( I . J ) , J» 1 , 6 > , I  =  1 , LPTS  ) 

VINPUT 

1580 

35 

FORMAT  (7F10.0) 

VINPUT 

1590 

WRITE  (6,36)  LTYPE , LF IT , NPTS , 

VINPUT 

1600 

« 

'  ( TT( I  )  ,<  XYZ( 1,0), 0=1,6), 1-1 .LPTS  ) 

VINPUT 

1610 

36 

FORMAT  ('0  SPLINE  FIT  TABULAR  INPUT1// 

VINPUT 

1620 

n 

'  3X. 'LTYPE  -'.ie,'  LF  IT  «‘,I6,'  NPTS  -',16// 

VINPUT 

1630 

* 

1  (F1S.6,3X,3F12.3,3X,3F12.3)  ) 

VINPUT 

1640 

DO  37  1=1,3 

VINPUT 

1650 

14  «  4-1 

VINPUT 

1660 

X0( I  )  =  X YZ( 1,1) 

VINPUT 

1670 

IF  (LTYPE. EQ.l)  GO  TO  37 

VINPUT 

1680 

XDOTO ( I  )  =  XYZ( 2,  I  ) 

VINPUT 

1690 

VMEG( I )  =  XYZ( 2, 1+3  ) 

VINPUT 

1700 

37 

ANGLE ( 14  >  =  XYZ< 1,1  +  3) 

VINPUT 

1710 

DO  45  11=1,6 

VINPUT 

1720 

CALL  SPLINE  (  TT(  LTYPE > . X YZ(  LTYPE , 1 1 ) , F , NPTS , LF I T > 

VINPUT 

1730 

I  -  II 

VINPUT 

1740 

IF  (II . GT . 3  )  I  -  1 1  +  6 

VINPUT 

1750 

IF  (LTYPE. NE.l  )  GO  TO  38 

VINPUT 

1760 

IF  (  1 1  .LE  .3  )  XDOTO( I >  -  F( 3, 1  ) 

VINPUT 

1770 

IF  (II.GT.3)  VMEG< 1 1 -3  )  -  F(3,l> 

VINPUT 

1730 

IF  ( II.GT.3)  I  =  16-11 

VINPUT 

1790 

38 

UNITS  =  1.0 

VINPUT 

1800 

IF  (LTYPE.LT. 3  .AND.  II.LE.3)  UNITS  -  -1.0/6 

VINPUT 

1810 

X 1  -  1 

VINPUT 

1820 

DO  45  0-1, MATAB 

VINPUT 

1830 

TTT  -  ATO  +  DFLOAT(0-1 >*ADT 

VINPUT 

1340 

DO  39  K-K 1 .NPTS 

VINPUT 

1850 

IF  (K.EQ.NPTS)  GO  TO  40 

VINPUT 

1860 

IF  ( DABS( TTT-F (1,K+1)).LT.EPS(8>)  TTT*F(1,K+1) 

VINPUT 

1870 

IF  <  TTT . LT . F < 1 , K+ 1  )  >  GO  TO  40 

VINPUT 

1880 

39 

CONTINUE 

VINPUT 

1890 

40 

XI  *  K 

VINPUT 

1900 

DX  -  TTT  -  F ( 1 , X  ) 

VINPUT 

1910 

GO  TO  (41, 42, 43), LTYPE 

VINPUT 

1920 

41 

ACC  -  2 . 0*F ( 4 , X  >  +  6 . 0*0X*F  <  5 , X  ) 

VINPUT 

1930 

GO  TO  44 

VINPUT 

1940 

42 

ACC  »  F ( 3 , X  )  +  DX*(2.0*F(4,K)  +  3.0*DX*F(5,X)) 

VINPUT 

1950 

GO  TO  44 

VINPUT 

1960 

43 

ACC  -  F  <  2 , X  >  +  DX*(F(3,X>  +  DX*<F(4,K)+DX*F(5,X)>) 

VINPUT 

1970 

44 

ATAB< I ,0  )  •  ACC  +  UNITS 

VINPUT 

1980 

45 

CONTINUE 

VINPUT 

1990 

ISKIP  -  1 

VINPUT 

2000 
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46  00  55  J-l .MATAB 

IF  <  M00( 0 , 45  ) . NE . 1  )  GO  TO  49 

PRINT  PAGE  HEADING  AT  START  OF  EACH  45  TIME  POINTS. 

IPAGE  -  <  J-l  )/45  +  1 

WRITE  <6,48)  I  SKIP , VPSTTL , I  PAGE , UN ITL , UN  I TT , UN ITL 

48  FORMAT! 1 1 , ‘  VEHICLE  LINEAR  TIME  HI  STORY '. 3X , 20A4 , 3X , 

*  'PAGE  NO. 1 .13// 

*  4X, 'TIME' ,12X, 'LINEAR  DECELERATIONS  (G''S>‘. 

*  UX, 'LINEAR  VELOCITIES  (  '  .  A4  .  '  /  '  .  A4 .  ‘  , 

*  UX, 'LINEAR  DISPLACEMENTS  !',A4,'l'  / 

*  3X, ' <MSEC ) '  ,3! 1 IX ,  ' X '  ,  1  IX,  '  Y *  ,  1  IX. 'Z' , 3X >  /  > 

ISKIP  «  1 

49  IF  (O.GT. 1 >  GO  TO  52 

INTEGRATION  INITIALIZATION  FOR  TIME  »  0. 

DO  SO  1-1,3 

ATA8 ( 1  +  6, J  )  -  X 0 (  I  > 

ATAB< 1  +  12, J  )  -  VMEG< I  ) 

50  THET(I)  -  ANGLE! I 1+RADIAN 
CALL  DRCYPR  I OVEH , ANGLE , I OYPR  ) 

DO  51  1-1,3 

IF  ! LTYPE . EQ. 0  )  XDOTO! I >  -  VIPS*DVEH( 1  ,  I  1 

51  ATAB! 1+3, J  >  -  XDOTO! I  ) 

GO  TO  54 

52  DO  53  1-1,3 

INTEGRATE  LINEAR  VELOCITY  AND  DISPLACEMENT. 

ATAB! 1+3, J)  -  ATAB! 1+3, J-l >-G*ADT/2 . 0*( ATAB( I .0-1 1+ATAB! I ,J 11 

53  ATAB! 1+6, J)  -  ATAB! I +6 , J- 1  ) 

*  +ADT*! ATAB! I +  3, J-l  )-G«ADT/6 . 0*<  2 . 0*ATAB! I , J-l  1+ATAB! I , J  )  )  ) 

54  T1  -  ! ATO  +  DFLOATIJ-1 1*ADT  1*1000 .0 

55  WRITE (6,561  T1 , ( ATAB! I , J  1 , I - 1 , 9 1 

56  FORMAT (F9.3,3(3X,3F12.311 
DO  61  J-l .MATAB 

IF  (MOD! J ,45  1  .NE . 1 1  GO  TO  58 

PRINT  PAGE  HEADING  AT  START  OF  EACH  45  TIME  POINTS. 

IPAGE  -  (J-l  1/45  ♦  I 

WRITE  (6,571  VPSTTL , IPAGE .UNITT.UNITT 

57  FORMAT! '1  VEHICLE  ANGULAR  TIME  H I  STORY 3X , 20A4 , 3X PAGE  NO.', 13// 

*  4X , 'TIME ' ,  7X, 'ANGULAR  ACCELERATIONS  < DEG/ ' , A4 . ' **2  }' , 

*  7X, 'ANGULAR  VELOCITIES  ( DEG/ ' , A4 , '  1 ' , 

*  UX, 'ANGULAR  DISPLACEMENTS  ( DEG  1 '  / 

*  3X , ' (MSEC  >' ,2! 11X, 'X' ,11X, ' V ,1IX, 'Z' ,3X>, 

*  10X, 'YAW' ,8X, 'PITCH' ,8X, 'ROLL'  /) 


VINPUT 

VINPUT 

VINPUT 

VINPUT 

VINPUT 

VINPUT 

VINPUT 

VINPUT 

VINPUT 

VINPUT 

VINPUT 

VINPUT 

VINPUT 

VINPUT 

VINPUT 

VINPUT 

VINPUT 

VINPUT 

VINPUT 

VINPUT 

VINPUT 

VINPUT 

VINPUT 

VINPUT 

VINPUT 

VINPUT 

VINPUT 

VINPUT 

VINPUT 

VINPUT 

VINPUT 

VINPUT 

VINPUT 

VINPUT 

VINPUT 

VINPUT 

VINPUT 

VINPUT 

VINPUT 

VINPUT 

VINPUT 

VINPUT 

VINPUT 

VINPUT 

VINPUT 

VINPUT 

VINPUT 

VINPUT 

VINPUT 

VINPUT 


2010 

2020 

2030 

2040 

2050 

2060 

2070 

2030 

2090 

2100 

2110 

2120 

2130 

2140 

2150 

2160 

2170 

2130 

2190 

2200 

2210 

2220 

2230 

2240 

2250 

2260 

2270 

2280 

2290 

2300 

2310 

2320 

2330 

2340 

2350 

2360 

2370 

2380 

2390 

2400 

2410 

2420 

2430 

2440 

2450 

2460 

2470 

2480 

2490 

2500 
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S8 

IFIO.EQ.  1  )  GO  TO  60 

VINPUT 

2510 

VINPUT 

2520 

INTEGRATE  ANGULAR  VELOCITY  ANO  DISPLACEMENT. 

VINPUT 

2530 

VINPUT 

2540 

DO  59  1-1,3 

VINPUT 

2550 

ATABI I ♦ 1 2 , J  >  -  ATABI 1  +  12, J-l >  +  (ATAB( 1  +  9, J-l >+ATAB( 1+9,0  >  )»ADT/2.0 

VINPUT 

2550 

59 

THET( I  )  -  ADT*< ATABI 1  +  12,0-1 >♦( 2.0+ATABI I +9, 0-1 l+ATABI 1  +  9,0  >  >*ADT 

VINPUT 

2570 

* 

'/6 . 0  )  “RAD  I AN 

VINPUT 

2580 

CALL  DSETDIDVEH.THET.THT) 

VINPUT 

2590 

60 

CALL  YPRDEGIDVEH.THET) 

VINPUT 

2600 

Ti  -  (AT0  ♦  0FLOATI0-1  >*ADT  )*1000 . 0 

VINPUT 

2610 

61 

WRITE  16,56)  Tl .(ATABI I ,0  ). I - 1 0 . 15 >,THET 

VINPUT 

2620 

VINPUT 

2630 

PROGRAM  INITIALIZATION  FOR  TIME  -  0. 

VINPUT 

2640 

VINPUT 

2650 

CALL  DRCYPR  I DVEH , ANGLE . I 0 YPR ) 

VINPUT 

2660 

DO  63  1-1,3 

VINPUT 

2670 

XACOMP I  I  )  -  -G+ATABII.l) 

VINPUT 

2680 

VMEGII)  -  ATABI 1  +  12, 1  )*RADIAN 

VINPUT 

2690 

63 

VMEGDI I >  •  ATABI 1+9  . 1)*RADIAN 

VINPUT 

2700 

64 

0  -  MSEG 

VINPUT 

2710 

IF  (MSEG.EQ.0)  GO  TO  65 

VINPUT 

2720 

IF  (MSEG.LE.NSEG)  GO  TO  66 

VINPUT 

2730 

IF  I MSEG . NE . NVEH+ 1  )  STOP  6 

VINPUT 

2740 

65 

NVEH  -  NVEH+1 

VINPUT 

2750 

0  -  NVEH 

VINPUT 

2760 

VINPUT 

2770 

SETUP  FOR  ALL  PRESCRIBED  SEGMENT  MOTION. 

VINPUT 

2780 

VINPUT 

2790 

66 

NVH  -  NVH+1 

VINPUT 

2800 

1SINGI 0  )  -  -1 

VINPUT 

2810 

IF  (MSEG.GT.NSEG)  SEGIO)  ■  VEHINVH) 

VINPUT 

2820 

DO  67  1-1,3 

VINPUT 

2830 

SEGLAI 1,0)-  VMEGDI I  ) 

VINPUT 

2840 

WMEGDI 1,0)-  XACOMP I  I  ) 

VINPUT 

2850 

67 

AXVI I, NVH)  -  AXI I ) 

VINPUT 

2860 

VTOINVH)  =  ATO 

VINPUT 

2870 

VDTINVH)  -  ADT 

VINPUT 

2880 

OMEGVI NVH )  -  OMEG 

VINPUT 

2890 

TIMEVI NVH )  -  VTIME 

VINPUT 

2900 

NVTABI NVH  >  -  NATAB 

VINPUT 

2910 

I  NDXVI NVH )  »  0 

VINPUT 

2920 

NO  -  IABSI NATAB) 

VINPUT 

2930 

IF  (NO.LE.O)  GO  TO  69 

VINPUT 

2940 

DO  68  K-l.NO 

VINPUT 

2950 

DO  68  1-1,3 

VINPUT 

2960 

VATABII  , K , NVH  >  -  ATABI I, K> 

VINPUT 

2970 

68 

VATABI 1+3, K, NVH)  «  ATABI I +9, K> 

VINPUT 

2980 

69 

IF  (O.LE.NSEG)  GO  TO  72 

VINPUT 

2990 

VINPUT 

3000 
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T 


SETUP  FOR  NEW  VEHICLE  (SEGMENT)  MOTION.  VINPUT 


W(J>  -  0.0 
RW( J  )  *  0.0 
DO  71  1-1.3 

DO  70  K-1,3 

0(  1 , K ,0  >  -  DVEH< 1,0 

70  SGTEST ( I  ,  K  ,  0  )  -  0.0 
SGTESTf  I  ,  4  ,  J  )  -  0.0 
SEGLP! II)  =  X0(  I  > 

SEGL V( 1,0)  -  XOOTO( I  ) 

WMEG  (1,0)  -  VMEG< I  ) 

PHI  (  I  ,0  )  «  0.0 

71  RPH I  (1,0)  »  0.0 

72  IF  (MSEG.NE.O)  GO  TO  12 
SEG(NVEH)  »  VEH( 6  ) 

SET  UP  SEGMENT  DATA  FOR  GROUND 

NGRND  *  NVEH  + 1 
IF  (NGRND. GT. 30  .OR.  NVH.GT.6)  STOP 
SEG(NGRND)  »  GRND 
J  *  NGRND 
ISING(J)  -  -1 
W(  0  )  «  0 . 0 

RW(O)  -  0.0 
DO  74  1=1,3 

DO  73  K= 1 , 3 

0( 1 , K , J  )  -  0.0 

73  SGTEST ( I , K  ,  J  )  «  0.0 
D( I . I  ,0  )  *  1.0 
SGTEST(  1,4,0)  •  0.0 
SEGL P (  I  .0  )  -  0.0 
SEGLV( 1,0)  •  0.0 
SEGLA( 1,0)  -  0.0 
UMEG  (1,0)  -  0.0 
WMEGD( I .0  )  •  0.0 
PHI  (  I  ,0  >  ■  0.0 

74  RPH I  (1,0)  »  0.0 
RETURN 

END 


VINPUT 

VINPUT 

VINPUT 

VINPUT 

VINPUT 

VINPUT 

VINPUT 

VINPUT 

VINPUT 

VINPUT 

VINPUT 

VINPUT 

VINPUT 

VINPUT 

VINPUT 

VINPUT 

VINPUT 

VINPUT 

VINPUT 

7  VINPUT 

VINPUT 

VINPUT 

VINPUT 

VINPUT 

VINPUT 

VINPUT 

VINPUT 

VINPUT 

VINPUT 

VINPUT 

VINPUT 

VINPUT 

VINPUT 

VINPUT 

VINPUT 

VINPUT 

VINPUT 

VINPUT 

VINPUT 

VINPUT 


3010 

3020 

3030 

3040 

3050 

3060 

3070 

3080 

3090 

3100 

3110 

3120 

3130 

3140 

3150 

3160 

3170 

3180 

3190 

3200 

3210 

3220 

3230 

3240 

3250 

3260 

3270 

3280 

3290 

3300 

3310 

3320 

2330 

3340 

3350 

3360 

3370 

3380 

3390 

3400 

3410 
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SUBROUTINE  VISPR( 10, NJ  > 

COMPUTES  VISCOS  AND  SPRING  TOROUES  AT  THE  OOINTS 
AND  ADDS  THEM  TO  THE  U2  ARRAY. 


REV  19  10/30/79 


ARGUMENTS: 

NJ  ■  0  -  REGULAR  COMPUTATION  FOR  ALL  JOINTS 
#  0  -  COMPUTE  ONLY  FOR  JOINT  NJ  IMPULSE 


10  «  1  IMPULSE  FOR  FLEXURE  ONLY 
'  2  IMPULSE  FOR  TORSION  ONLY 
•  4  IMPULSE  FOR  GLOBALGRAPHIC  ONLY 


IMPLICIT  REAL *8  <A-H,0-Z> 

COMMON /CONTRL/  TIME , NSEG , NONT , NPL , N8LT , NSAG , NVE H , NGRND , 

*  NS.NQ.NSO .NFLX.NHRNSS .NWINDF , NONTF , NPRT ( 36  > 

COMMON /SGMNTS/  D<3,3,30) , WMEGt  3,30). WME-GDI 3,30>,U1< 3,30  ),U2< 3,30), 

*  SEGLPI 3,30 ) ,SEGLV< 3,30), SEGLAt  3 , 30  > . NS YM( 30  > 

COMMON /DESCRP/  ?H I ( 3 . 30 ) ,W( 30 ) , RW( 30 > , SR( 3 , 60  > . HA( 3 . 60  >  ,  HB( 3 . 60  > , 

*  RPHI<  3,30 ) ,HT( 3,3 ,60  )  .SPRING! S, 90  )  ,VISC( 7 ,90  ) . 

*  JNT(  30  ).  !PIN(  30  >,  ISI.'IGf  30)  .  IGLOB(30  >  ,OOINTF(  30  ) 
COMMON /CMATRX/  VI <  3 , 30 ) , V2 ( 3 , 30 ) , V3 ( 3 , 1 2  )  . B 1 2 ( 3 . 3 . 60  ) , A22( 3 , 3 , 60  )  , 

*  F(  3,30 ) ,TQ( 3. 30 ) ,WJ< 30 > 

COMMON/FORCES/-  PSF ( 7 . 30 ) , BSF ( 4 , 20  > , SSF ( 1 0 , 20  )  , BAGSF (3.20), 

*  PR0NT<  6.30  > , NPANEL ! 5 > ,NPSF , NBSF , NSSF , NBGSF 
COMMON /CEULER/  I EULER( 30  )  , H I R( 3 . 3 , 30  )  , ANG( 3 . 30  )  ,ANGD( 3 , 30  ) , 

*  FE(3,30),TQE(3,30),CQNST(3,30) 

COMMON /TEMP V I /  CREST, TT 1(3), R1I(3),R 21(3  )  . JSTOP ( 4 , 2 . 30  ) 
COMMON/CNSNTS/  P I , RAD  I AN , G . TH I RD , £P S ( 24  )  , 

*  UN1TL.UNITM.UNITT,GRAVTY(3) 

COMMON/TEMP VS/  T3 ( 3  > , T6 ( 3  )  . T7 ( 3  )  , T8 ( 3  > , T 9 ( 3  ) , 

*  UIJ( 3 ) , ANGL <  3  )  ,DH1! 3.3  >  ,HD3( 3.3) , 

*  HAD ,HBD,WIJM,CV , CSA , CSB , TQC 
IF  (NJNT.LE.O)  GO  TO  99 
CALL  ELTIME  <  1,13) 

IF  ( NPRT( 1 2  ) . NE . 0  )  WRITE  (6,11)  TIME 

11  FORMAT ( ‘ 1  VISPR  COMPUTATIONS  FOR  TIME  «',FI2.5> 

01  -  1 
J2  «  NJNT 

IF  (NJ.EQ.O)  GO  TO  13 
01  »  NJ 
02  *  *J 

13  DO  90  J-01  ,02 
DO  12  L*1 ,3 
T  3 ( L  )  »  0.0 
T6(L  )  ■  0.0 
ANGLU  )  »  0.0 

12  TQ<  L ,0  )  «  0.0 
WO ( 0  )  »  0.0 

c 


VISPR 

0010 

VISPR 

0020 

VISPR 

0030 

VISPR 

0040 

VISPR 

0050 

VISPR 

0060 

VISPR 

0070 

VISPR 

0080 

VISPR 

0090 

VISPR 

0100 

VISPR 

0110 

VISPR 

0120 

VISPR 

0130 

VISPR 

0140 

VISPR 

0150 

VISPP 

0150 

VISPR 

0170 

VISPR 

0130 

VISPR 

0190 

VISPR 

0200 

VISPR 

0210 

VISPR 

0220 

VISPR 

0230 

VISPR 

0240 

VISPR 

0250 

VISPR 

0260 

VISPR 

0270 

VISPR 

0280 

VISPR 

0230 

VISPR 

0300 

VISFR 

0310 

VISPR 

0320 

VISPR 

0330 

VISPR 

0340 

VISPR 

0350 

VISPR 

0360 

VISPR 

0370 

VISPR 

0330 

VISPR 

0390 

VISPR 

0400 

VISPR 

0410 

VISPR 

0420 

VISPR 

0430 

VISPR 

0440 

VISPR 

0450 

VISPR 

0460 

VISPR 

0470 

VISPR 

0480 

VISPR 

0490 

VISPR 

0500 

166 


C 

DO  NOT  COMPUTE  TORQUES  FOR  NULL,  LOCKED  OR  EULER  JOINTS. 

VISPR 

0510 

c 

VISPR 

0520  ! 

I  -  IABSI JNT<  0 ) ) 

VISPR 

0530 

IF  (  I  .LE  .0  )  GO  TO  90 

VISPR 

0510 

CALL  OOT33  ( D<  1  .  1  .  J ♦  I  > , HT( l . 1 , Z« J  ) , H I R< I , 1 , 0 >  ) 

VISPR 

0553 

IF  <  IP  INI J  )  .LT.O  .OR.  IP1N! J  )  .GT.3  1  GO  TO  90 

VISPR 

0560 

c 

VISPR 

0570 

c 

ZERO  T 1 -T9  ARRAYS  ANO  HAD , HBD , WI JM . CV , CS4 . CSB  AND  TQC . 

VISPR 

0580 

c 

VISPR 

0590 

WIJM  -  0.0 

VISPO 

0600 

CV  •  0.0 

VISPR 

0610 

CSA  -0.0 

VISPR 

0620 

CSB  -  0.0 

VISPR 

0630 

TQC  «  0 . 0 

VISPR 

0640 

CALL  OOT33  (  Dl 1 , 1 .  I  >  .  HT(  1  ,  1 , 2*0 -1 > , DH1 > 

VISPR 

0650 

CALL  DOT33  ( DH  1  , H I R (  1,1,0),  HD3) 

VISPR 

066C 

HAD  «  H03<  3,3) 

VISPR 

06~u 

IF  (HAD.GT.  1.3)  HAD  -  1 .0 

VISPR 

0680 

IF  (HAD. LT. -1.0)  HAD  «  -1.0 

VISPR 

0690 

ANGL ( 1  )  >  QARCOS( HAD ) 

VISPR 

0700  * 

IF  ( H 0 3 ( 2 , 3  > . HE . 0 . 0  .OR.  HD3<  1 , 3 > . NE . 0 . 0  ) 

VISPR 

0710 

*ANGL( 2  >  *  DATAM2(HD3<2,3),HD3< 1,3) ) 

VISPR 

0720 

ANGL ( 3  >  ■  DATAN2(HD3(2,1 )-H03<  1 , 2  )  ,  HD3 (  1,1  )»HD3(2,2)) 

VISPR 

0730 

IF  (N1.NE.0.AND.IJ.EQ.4)  GO  TO  27 

VISPR 

0710  ‘ 

c 

VISPR 

0750  , 

c 

CONVERT  TO  INERTIAL  REFERENCE  SYSTEM 

VISPR 

0760 

c 

Tl«  0(1)' *HAf  NO  )  T4“D<  J* 1  )  '*HA(MJ  > 

VISPR 

0770 

c 

T3»  D  < I ) ' *WME  G ( I  )  TS»D(0*1)' *WMEG<  J  +  I ) 

VISPR 

0780 

c 

VIS3  9 

0790 

c 

HAD  -  COS  TA  -  ri ,T4 

VISPL 

0800 

c 

WIJ  -  T3-T6 

VISPR 

0810 

c 

WO  -  t WIO 1 

VISPR 

0820 

c 

VISPR 

0830 

DO  20  L  »  1 , 3 

VISPR 

0840 

DO  IS  M- 1,3 

VISPR 

0850 

' 

T3(L>  •  T3( L  )♦  0(  M , L , I  }*  WMEG(M,l) 

VISPR 

0860 

■ 

IS  T6( L )  ■  T6( L  )♦  0<  M , L , 0* 1  )*  WMEG(M,J+l> 

VISPR 

0870 

\ 

WIO( L  )»  T3(L)-T6(L) 

VISPR 

0880 

20  WIJM  -  WIJM  ♦  WI J( L  >**2 

VISPR 

0890 

WIJM  ■  DSQRT( WIJM > 

VISPR 

0900 

WJ(J>  -  WIJM 

VISPR 

0910 

c 

VISPR 

0920 

c 

T7  -  T1  X  T 4 

VISPR 

0930 

c 

HAC  -  IT7I 

VISPR 

0910 

c 

VISPR 

0950 

CALL  CROSS  <  OH  1  ( 1 , 3  > , H I R< 1 , 3 .0  > , T7 ) 

VISPR 

0960 

r 

HACC  -  T7( 1  )**2  ♦  T7( 2  )**2  ♦  T7<3)**2 

VISPR 

0970 

HAC  »  DSQRT(HACC) 

VISPR 

0930 

c 

VISPR 

0990 

c 

COMPUTE  CV,  THE  MAGNITUDE  OF  VISCOUS  AND  COULOMB  TORQUE/WIJM 

VISPR 

1000 

|  > 
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, 

on  noon  non  noon  non 


RA  »  ♦SGN  TA  DOT  •  -WIJ.T7 
AND  CSA.  THE  MAGNITUDE  OF  FLEXURE  TORQUE/HAC 

CV  ■  VISCOSIWIJM, VISC< 1 , 3-J-2  )  ,HA2  ) 

IF  (NO.EO.O)  HA( 2 , 2*0  >  «  HA2 
CREST  •  VISCt 7.3*J-2  ) 

RA  -  -(W10< l )*T7< l>  ♦  WIO  >  2 )*T7( 2  )  ♦  WIOl 3 >*T7< 3  ) ) 

IF  (HAC.NE.0.0)  RA  -  RA/HAC 
OSTP  »  0 

IF  <0OINTF<0 >.EQ.0>  CSA  »  EFUNCTf  ANGL ( 1 >, RA, SPRING) 1 , 3*0-2  ) , JSTP  ) 
IF  ( 001 NTF ( J ) . NE . 0  )  CSA  -  FNTERPf  ANGL ( 1 ) , ANGL <  2 ) , OOINTF { 0  )  ) 

IF  (HAC.NE.0.0)  CSA  -  CSA/HAC 
IF  (NO.EO.O)  OSTOPd.l.J)  •  OSTP 
IF  (IPIN(O).EQ.l)  GO  TO  34 

RB  »  +SGN  T8  DOT  «  -WI0.T8 

COMPUTE  CSB,  THE  MAGNITUDE  OF  TORSIONAL  TORQUE/HBC 

RB  ■  -<W10< 1 >*HIR< 1 ,3,0 >  +  W10(2)*HIR(2.3,0)  +  WI J ( 3 > *HI R( 3 , 3 , 0  )  ) 
CSB  =■  EFUNCT<ANGL(3),RB,SPRING<1, 3*0-1),  JSTP) 

IF  (NO.EO.O)  OSTOP( 2,1,0)  ■  OSTP 
IF  (NO.GT.O)  GO  TO  34 

COMPUTE  EFFECT  OF  GLOBALGRAPHIC  OOINT  STOP  (IPIN-3) 

27  IF  ( IPIN(0).NE.3)  GO  TO  34 

CALL  GLOBAL  ( 0 . HD3 ( 1 . 3 > , DH 1 ,TQC , T9 , ANGL  ) 

COMPUTE  TOTAL  TORQUE  IN  INERTIAL  REFERENCE  BY 
TQ  -  -CV*WIO  ♦ -CSA*T7  ♦  CS8*T8  ♦  T0C«T9 

34  IF  (NO.EQ.O)  GO  TO  36 
CV  -  0.0 

IF  (  I0.NE.  1  )  CSA  «  0.0 

IF  (  IO.NE.,.)  CSB  «  0.0 

IF  < I0.NE.4)  TQC  »  0.0 

IF  ( HA (2, 2*0). EQ. 0.0)  GO  TO  36 

CALL  MAT3I  ( H I R< i , 1 , 0 ) , HA< 1 , 2*0- 1  ) , TQ< 1 , 0 > > 

DO  38  C-l  .3 

38  TQ(L.O)  -  HA(2,2*0)*TQ(L,0) 

36  DO  37  L-l ,3 

TQ(L.O)  -  TQ(L.O)  -CV*WI0(L)  *CSA*T7( L  )  *CSB*HIR( L ,3,0  )  *TQC*T9(L) 

37  TTI ( L )  -  TQ(L.O) 

IF  ( NPRT( 12 ) .NE . 0 )  WRITE  (6,39) 

*  0 . CV . CSA , CS B , HAC , RA , RB , <  TO i L , 0  > , L ■ 1 , 3  ) , 

*  WIO, T7, ANGL.  DH1  ,  HD3, 

*  <(HIR(L,K,0),L*1,3),K»1,3> 

39  FORMAT ( U, IP9D14 .6/< 4X ,9014.6 > > 

ADD  TORQUE  CONVERTED  TO  LOCAL  REFERENCE  BY 


VISPR  1010 
VISPR  1020 
VISPR  1030 
VISPR  1040 
VISPR  1050 
VISPR  1060 
VISPR  1070 
VISPR  1030 
VISP-  1090 
VISP5  1100 
VISPR  1110 
VISPR  1120 
VISPR  1130 
VISPR  1140 
VISPR  1150 
VISPR  1150 
VISPR  1170 
VISPR  1130 
VISPR  1190 
VISPR  1200 
VISPR  1210 
VISPR  1220 
VISPR  1230 
VISPR  1240 
VISPR  1250 
VISPR  1260 
VISPR  1270 
VISPR  1280 
VISPR  1250 
VISPR  1300 
VISPR  1310 
VISPR  1320 
VISPR  1330 
VISPR  1340 
VISPR  1350 
VISPR  1360 
VISPR  13/0 
VISPR  1330 
VISPR  1330 
VISPR  1 4  jO 
VISPR  1410 
VISPR  1420 
VISPR  1430 
VISPR  1440 
VISPR  1450 
VISPR  1460 
VISPR  1470 
VISPR  1480 
VISPR  1490 
VISPR  1500 
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c 

UZI  »  U2I  ♦  0 I *TQ 

VISPR 

IS'.O 

c 

U20  ■  U20  -  00  *TQ 

VISPR 

1520 

c 

VISPR 

1530 

00  40  L  « 1 , 3 

VISPR 

1540 

DO  40  M-l . 3 

VISPR 

1550 

U2(L,I  )  *  U2 ( L , I  ) 

♦  D ( L , M ,  I  >*TQ( M,  J  ) 

VISPR 

1560 

40 

U2 ( L , 0 ♦  1  )  «  U2( L  ,0*1  ) 

-  D(L,M,0+I  )*TO(M,J> 

VISPR 

1570 

c 

VISPR 

1580 

c 

STORE  DATA  FOR  OUTPUT 

ROUTINE  INTO  PRONT  ARRAV. 

VISPR 

1590 

c 

VISPR 

1600 

PRJNTf 1,0)-  ANGL< 1 ) 

VISPR 

1610 

PROMT! 2,0  >  »  ANGl ( 3 ) 

VISPR 

1620 

PR0NT(3,0)  -  CSA'HAC 

VISPR 

1630 

PRONT ( 4,0 )  -  CSS 

VISPR 

1640 

PRONT! 3,0  )  -  CV'VIOM 

VISPR 

1650 

PROMT! 6 , 0  )  •  OSQRT(TQ( 1 ,0 >««2  +  T0( 2.0 >*«2*T0l 3,0 >"*2) 

VISPR 

1660 

90 

CONTINUE 

VISPR 

1670 

CALL  ELTIME(2.13) 

VISPR 

1680 

99 

RETURN 

VISPR 

1690 

END 

VISPR 

1700 

169 
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SUBROUTINE  WI NO Y( M ,MM , N . NN . NT ) 


REV  19  08/05/78 

COMPUTES  FORCES  AND  TORQUES  ADDING  THEM  TO  THE  U1  AND  U2  ARRAYS 
OF  WIND  BLAST  FORCES  DETERMINED  BY  FUNCTION  STORED  IN  TAB(NT) 

ON  ELLIPSOID  (MM)  ATTACHED  TO  BODY  SEGMENT  (M>  WHICH  EXTENDS 
THROUGH  THE  INTERSECTING  PLANE  < NN >  ATTACHED  TO  SEGMENT  <N>. 


IMPLICIT  REAL*8  (A-H.O-Z) 

COMMON/CONTRL/  TIME , NSEG , NONT , NPL . NBLT , NBAG , NVEH . NGRND , 

*  NS.NQ.NSD.NFLX.NHRNSS.NWINDF ,NJNTF,NPRT< 36  > 

COMMON /SGMNTS/  D< 3 , 3 , 30 ) , WMEG( 3 , 30 ) , WMEGD ( 3 . 30 ) . U 1 ( 3 , 30 > , U2( 3 , 30 ) , 

*  SEGLP(3,30),SEGLV(3,30),SEGLA(3,30>,NSYM(30> 

COMMON /TABLES/MXNT I .MXNTB.MXTBl , MXTB2 . NT  I  (  50 ) , NTAB  (  500  ) .TAB  (  2000 ) 
COMMON/CNTSRF /  PL< 1 7 , 30 ) , BELT(  20 , 8 > , TPTS (  6 . 8 ) . BD(  24 . 40  > 

COMMON /C NS NTS/  P I . RAD  IAN , G . TH I RD . EPS< 24  )  , 

*  UNITL.UNITM.UNITT, GRAVTYI 3  ) 

COMMON/TEMP VS/  DMNT< 3 , 3  ) , XMN( 3 ) , XMM( 3 ) , TM( 3 > , BET . BTS . P , FT( 3 > , 

*  FF(3),AF(3),FAF,TF,BREF, SCALE , TRACER ,AREA,RLM<3), 

*  TQM( 3 ) , RM<  3  ) 

COMMON /W I NDFR/  WT IME ( 30 ) , IWI NO i 30 ) , MWSEGI 5 , 30  ) 

CALL  ELTIME ( 1,37) 

COMPUTE  PENETRATION  D I  STANCE i  IF  NEGATIVE.  RETURN. 

CALL  DOTT33  (□<  1,1.M),D< l.t.N). DMNT  ) 

DO  10  1*1,3 

10  XMN( I )  -  SEGLP(I.M)  -  SEGLP(I.N) 

CALL  MAT 3 1  ( D( 1 , 1 , M ) . XMN , XMM ) 

CALL  MAT31  ( DMNT . PL< 1 , NN ) , TM  ) 

BET  -  PL<  4 , NN  ) 

DO  11  1-1,3 

11  BET  -  BET  -  TM< I )*( 8D( I +3 , MM )*XMM( I  )  ) 

CALL  MAT31  < BD< 1 6 . MM ) . TM , RM  ) 

BTS  »  TM< 1 >*RM( 1  )  ♦  TM<  2  )  *RM( 2  )  ♦  TM<3)*RM<3> 

BTE  -  -DSQRT(BTS) 

P  -BET  -  BTE 
IF  (P.LT.0.0)  GO  TO  99 


FETCH  OR  STORE  INITIAL  PENETRATION  TIME. 

IWIND(M)  -  M 

IF  (TIME.LE.WTIME(M) )  WTIME(M)  -  TIME 
FTIME  -  TIME  -  WTIME(M> 

GET  FORCE  VECTOR  FT  FROM  TABLE  NT  FOR  TIME  -  FTIME. 

22  KT  -  NTI ( NT  ) 

NENTRY  -  TAB<  KT*5  ) 

K1  -  KT*  1 0 

K2  -  4*NENTRV  ♦  KT+2 


WINDY 

0010 

WINDY 

0020 

WINDY 

0030 

WINDY 

0040 

WINDY 

0050 

WINDY 

0060 

WINDY 

0070 

WINDY 

0080 

WINDY 

0090 

WINOY 

0100 

WINDY 

0110 

WINDY 

0120 

WINDY 

0130 

WINDY 

0140 

WINDY 

0150 

WINDY 

0160 

WINDY 

0170 

WINDY 

0180 

WINDY 

0190 

WINDY 

0200 

WINDY 

0210 

WINDY 

0220 

WINDY 

0230 

WINDY 

0240 

WINOY 

0250 

WINDY 

0260 

WINDY 

0270 

WINDY 

0280 

WINDY 

0290 

WINDY 

0300 

WINDY 

0310 

WINDY 

0320 

WINDY 

0330 

WINDY 

0340 

WINDY 

0350 

WINDY 

0360 

WINDY 

0370 

WINDY 

0380 

WINDY 

0390 

WINDY 

0400 

WINDY 

0410 

WINDV 

0420 

WINDY 

0430 

WINDY 

0440 

WINDY 

0450 

WINDY 

0460 

WINDY 

0470 

WINDY 

0430 

WINDY 

0490 

WINDY 

0500 
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IF  (NENTRY.EO.l  )  GO  TO  31 
DO  30  K-K1 ,KZ,4 
IF  <  FT IME . GT .TAB<  K  > )  GO  TO  30 
KK  -  < 

SI  «  (TABdO-FTIME >/( TAB( K>-TA8( K-4 > > 
GO  TO  32 

30  CONTINUE 

31  KK  «  KZ 
R1  -  0.0 

32  R2  •  1 .0  -  R1 
00  33  1-1,3 
K«  KK* I 

33  FT( I >  -  R2*TAB<  K  >  ♦  Rl*TAB(K-4> 
COMPUTE  PRESENTED  AREA  TO  WIND  FORCE. 


WINDY 
WINDY 
WINDY 
WINDY 
WINDY 
WINDY 
WINDY 
WINDY 
WINDY 
WINDY 
WINDY 
WINDY 
WINDY 
WINDY 
WIND  t 
WINDY 


CALI  MAT 31  { DC  1 . 1 ,M>  .FT.FF  ) 

CALL  MAT31  ( BD<  7 ,MM  > , FF ,AF  ) 

FAF  •  FF ! 1 >*AF ( 1  )  ♦  FF(2)*AF(2)  +  FF(3>*AF(3> 

IF  ( FAF .LE  .0.0  )  GO  TO  99 

TF  -  TMC 1  )*FF  < I  )  ♦  TMC 2  )*FF ( 2  )  ♦  TM<  3  > *FF ( 3  > 

BREF  -  DSQRTC BTS-TF*TF/FAF  ) 

SCALE  -  (-BET+BREF  )/(-8TE*BREF  ) 

IF  (SCALE. GE. 1.0)  GO  TO  99 
IF  (SCALE. LT. 0.0)  SCALE  -  0.0 

TRACER  -  ( BD(  7 , MM )-AF( 1 1**2 /FAF I*(B0( 11 ,MM )-AF(2>**2/FAF> 
«  ♦  ( 8  D (  7 , MM  )-AF( 1 )  **2/FAF  )*( B0< 15 ,MM  )-AF(3>**2/FAF> 

-  ♦  ( BD< 11 ,MM)-AF(2 >-*2/FAF )*(BD( 15,MM)-AF( 3 >**2/FAF > 

•  -  ( B 0 (  8,MM)-AF( 1 1  *AF  <  2  )  /  FAF  5**2 

*  -  (BD<  9 , MM  >-AF ( 1  I*AF(3)/FAF  )**2 

«  -  ( BD( 1 2 , MM  I-AF ( 2  )*AF (3)/FAF)**2 

AREA  »  (  1 . 0-SCALE**2  )  «  PI  /  DSQRTC TRACER  ) 

ADD  FORCE  AND  TORQUES  TO  U1  AND  U2  ARRAYS  FOR  SEGMENT  M. 

SCALE  »  SCALE/BTE 
DO  36  1-1,3 

RLM(I)  -  RM( I  )*SCALE  ♦  80(1*3, MM) 

FT  ( I  )  -  FT( I  ) *AREA 
36  FF  ( I  )  -  FF(  I  ) “AREA 

CALL  CROSS  (RLM.FF.TQM) 

DO  39  1-1,3 

Ul( I .Ml  -  Ul( I . Ml  ♦  FT< I > 

39  U 2 ( I , M )  -  U2( I , M )  +  TQMC I ) 

IF  <NPRT(  lO.NE.O)  WRITE  <6,41  >  TIME  ,  M ,  P  .AREA ,  FT .  TQM 
41  FORMAT!  '  WIND  FORCE ' , F 1 4 . 6 , 1 6 , 2F 1 0 . 3 , 3X . 3F 1 2 . 5 , 3X , 3F 1 2 . 5 ) 
99  CALL  ELTIME  (2,37> 

RETURN 

ENO 


WINDY 

WINDY 

WINDY 

WINDY 

WINDY 

WINDY 

WINDY 

WIND" 

WINDY 

WINDY 

WINDY 

WINDY 

WINDY 

WINDY 

WINDY 

WINDY 

WINDY 

WINDY 

WINDY 

WINDY 

WINDY 

WINDY 

WINDY 

WINDY 

WINDY 

WINDY 

WINDY 

WINDY 

WINDY 

WINDY 

WINDY 

WINDY 

WINDY 


0510 
0520 
0530 
0540 
0550 
0560 
0570 
0580 
0590 
0600 
0610 
0620 
0630 
0610 
0650 
0660 
05^0 
0630 
0690 
0700 
0710 
0720 
0730 
0710 
0760 
0760 
0770 
0730 
0790 
0800 
0810 
0820 
0830 
0810 
0860 
0860 
0870 
0830 
0890 
0930 
0910 
0920 
09  30 
0940 
0950 
0960 
0970 
0980 
0950 
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